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INTRODUÇÃO 

Este livro foi escrito para todos os usuários que desejam utilizar os microcom- 
putadores MSX para aprender mais sobre programação em BASIC, 

O livro contém programas práticos e de entretenimento desenvolvidos para 
auxiliar os usuários no aprendizado do BASIC MSX. Outros livros normal- 
mente contêm exemplos insuficientes ou incompletos, o que dificulta a com- 
preensão da potencialidade do BASIC MSX, A utilização de MSX — Melhores 
programas é, além de fácil , divertida. 

Explicações claras e concisas do que estã acontecendo em cada programa sáo 
fornecidas. À medida que você lê estas explicações* mais você aprende sobre 
porque o programa trabalha desta maneira e começa a visualizar as técnicas do 
BASIC MSX que podem ser úteis no desenvolvimento de seus próprios progra- 
mas, 

Com a utilização de um simples microcomputador MSX com um gravador 
cassete, você poderá executar os programas contidos no MSX — Melhores 
Programas sem nenhum problema, (Mas* se você não quer digitar todos estes 
programas é possível adquirir uma fita cassete já gravada com todos os pro- 
gramas digitados e testados para a sua tranqüilidae.) Se você tiver uma impres- 
sora* muitos programas podem ser utilizados com ela* sem que seja necessária 
nenhuma mudança nos programas. 

O MSX — Melhores Programas é um livro único, pois ele tem um grande 
número de programas que abrangem as mais diversas áreas que o usuário do 
microcomputador MSX pode ter interesse. Isto lhe dá o apoio para que você 
possa usar o seu microcomputador MSX fazendo uso de todas as suas caracte- 
rísticas. 

Para digitar qualquer programa simples siga as instruções no Manual de Lin- 
guagem BASIC. Se você quiser modificar qualquer linha, por exemplo, colocar 
seus próprios dados na linha de comando DATA, é só fazê-lo. {Certifique-se de 
fazer a substituição corretamente e de finalizar um comando da mesma maneira 
que ele está sendo finalizado no programa.) 


A ORGANIZAÇÃO deste livro 

O Capítulo 1 apresenta uma descrição do teclado do MSX, incluindo suas teclas 
de função, o teclado numérico separado e as teclas de edição. Os Capítulos 2, 3 e 
4 contém diferentes tipos de programas, incluindo problemas matemáticos e 
sua resolução Jogos e programas práticos e programas educacionais e pessoais. 
Devido à versatilidade dos programas, não foi fácil fazer a divisão destes em 
grupos, pois, programas de matemática podem também ser programas educa- 
cionais, alguns programas pessoais poderiam ser classificados como programas 
de economia etc. 

Para executar um programa você tem duas maneiras: 

1. Digitar o programa assim como ele é mostrado no livro, depois salvá-lo para 
não precisar redigitá-lo; ou 

2, Adquirir a fita cassete opcional que foi desenvolvida e testada para facilitar o 
uso deste livro. Esta fita já contém todos os programas apresentados neste 
livro. 

Após você decidir qual a maneira que vai utilizar (digitar o programa ou 
carregádo da fita), deve usar o comando RUN para executar o programa. 

Além dos métodos descritos no livro para encerrar a execução dos programas, 
você pode finalizar qualquer programa, sem danificá-lo, através do comando 
CONTRGL+ STOPíou seja, você pressiona a tecla CONTROLe a tecla STOPao 
mesmo tempo). 

Sempre que um programa pedir a você que insira um dado, através de um 
comando INPUT, você deverá seguir esta entrada de dados de um RETURN. 

Apesar do grande esmero no desenvolvimento e teste na preparação dos pro- 
gramas do MSX — Melhores Programas» nem ele nem os programas são neces- 
sariamente perfeitos. Mas, cada programa foi testado completamente. Caso o 
leitor ache qualquer falha, nos colocamos à disposição para receber sua solução 
ou comentários dela nos endereços abaixo: 

EBRAS Editora Brasileira Ltda. 

Rua Borges Lagoa, L044 
04038 — São Paulo ■ SP 
<01 1 ) 549 - 8633 


OU 


STAFF Consultoria e Processamento Ltda. 

Rua Pascal, 799 

04616 — São Paulo - SP 

(011) 530 - 3741 
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INTRODUÇÃO 

O teclado é um periférico padrão para a entrada de dados A maioria das 
informações que o computador utiliza vêm originalmente do teclado. Usando 
várias combinações das 89 teclas, você pode digitar qualquer um dos 256 carac- 
teres que o MSX reconhece. 

Se você conhece o teclado de uma máquina de escrever comum, as teclas de 
letras e numeros não devem causar nenhum problema. Algumas das teclas de 
pontuação podem estar em diferentes localizações, as quais não são aquelas 
que você esperava, mas você se adaptará rapidamente à nova configuração. 

TECLAS DE CONTROLE GERAL 

O teclado do MSX possui algumas teclas que realizam funções de controle geral 
como descrito abaixo. Os programas aplicativos podem ser desenvolvidos de 
modo que disabilitein ou mesmo redefinam algumas destas teclas de controle 
geral; consulte sempre as instruções de operação do programa. 

ESC É uma abreviação para “ESCape”, Esta tecla faz o MSX inter- 

romper a operação de um programa quando pressionada pela 
primeira vez, quando for pressionada pela segunda vez ela 
contínua o programa a partir de onde foi interrompido. Ela 
pode ser utilizada em alguns programas aplicativos. 

TAB A tecla de TABulação funciona como o tabulador de uma 

máquina de escrever comum, movendo o cursor para frente 
oito espaços até a próxima tabulação, 

CONTROL Às vezes abreviada como Ctrl, mais parecida com a tecla de 
letras maiusculas de uma máquina de escrever comum, a tecla 
CONTROL modifica o efeito de outra tecia quando as duas são 
pressionadas ao mesmo tempo, assim como CONTROL+S- 
TOP que interrompe a execução de um programa no BASIC 
MSX. 

SHIFT Use ambas as teclas SHIFT como você usa em uma máquina 

de escrever comum para acessar as letras maiusculas ou os 
símbolos e sinais de pontuação, Quando o teclado está ativado 
no modo de letra maiuscula (através da tecla CAPS LOCK), a 
tecla SHIFT age como se não estivesse acionada, retornando 
letras maiusculas quando você a mantém pressionada; elas 
não desativam o modo de letras maiusculas, 

BS É a abreviatura de B ac kSpace Funciona como o retorno de 

uma letra de uma máquina de escrever comum. Embora, ela 
não mova somente o cursor um caracter para trás, mas tam- 
bém apaga o caracter que estava nesta posição. 
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RETURN 
CAPS LOCK 


HOME/CLS 

LGRA 

RGRA 

INSERT 

DELETE 

STOP 


O mais semelhante à esta telcla é o " retorno do carro” encon- 
trado em algumas máquinas de escrever elétricas. Em alguns 
computadores, a tecla 4 é chamada de RETURN ou ENTER. 
Seu objetivo é finalizar a linha que você está digitando e avan- 
çar para a próxima linha. 

A tecla CAPS LOCK faz com que o teclado gere letras maiuscu- 
las sem a necessidade de se utilizar a tecla SHIFT. De fato, 
quando o teclado está no modo de letras maiusculas, 
utilizando-se a tecla SHIFT ele retornará letras minúsculas. A 
tecla CAPS LOCK difere da tecla correspondente da máquina 
de escrever porque ela afeta somente as 26 teclas que possuem 
as letras do alfabeto. Por exemplo, você deve sempre pressio- 
nar ambas SHIFT e / para ter o símbolo de interrogação (?). 
Pressionando-se uma vez a tecla CAPS LOCK muda-se para o 
modo de letra maiuscula ; pressionando-a novamente retorna- 
se ao modo de letra minúscula. A tecla C não é ativada, para 
obtê-la deve-se pressionar a tecla SHIFT juntamente com C. 

O canto esquerdo superior da tela é chamado de posição 
( inicial ).{"home”K A tecla HOME/CLS move o cursor para lá. Se 
ela for pressionada junto com a tecia SHIFT a função CLS é 
ativada e então, além de mover o cursor para o canto superior 
esquerdo da tela ela a limpa (ou seja, “zera” a tela). 

Quando você quer gerar os símbolos gráficos diretamente sem 
precisar procurar qual é o código ASCII equivalente, pode utili- 
zar esta tecla, mais a que gera o símbolo solicitado. (Consulte o 
Manual do seu microcomputador para saber quais sâo as te- 
cias). 

Tem o mesmo efeito da tecla LGRA apenas gerando caracteres 
diferentes. 

A tecla INSERT coloca e tira o computador do modo de inser- 
ção. No modo de inserção, o cursor é um traço ao invés de um 
pequeno quadrado, e cada caracter que você digitar “empur- 
rará” os restantes dos caracteres uma posição para a direita. 
Isto é melhor do que ter que reescrever uma linha inteira. 

A tecla DELETE apaga o caracter sobre o qual o cursor está. 
Todos os caracteres à direita de um caracter apagado sâo 
então movidos uma posição para a esquerda para preencher o 
espaço que foi deixado vago quando se apagou o caracter. 

Esta tecla junto com a tecla SHIFT tem a função parecida com 
a de CTRL+ S de alguns computadores, ou seja, ela interrompe 
e continua a execução de um programa ou a visualização de 
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uma listagem de programa. Para interromper definitivamente 
a execução de um programa deve-se utilizar a tecla STOPjunto 
com a tecla CONTROL, Isto retomará o comando ao usuário. 

SELE CT Esta tecla não tem função quando o usuário está programando 

em BASIC MSX. Ela serve para quando se está utilizando 
programas de processamento de palavras ou na entrada de 
dados quando se tem programas aplicativos que a utilizam. 

SETAS Estas teclas servem para mover o cursor para qualquer parte 

da tela. Também servem para edição de programas em BASIC 
MSX, facilitando assim a correção de erros em linhas do pro- 
grama. 

F1.„F10 As teclas de função FL„F10 na parte superior do teclado, 

podem ser programadas para gerar seqüências de caracteres 
diferentes. Alguns programas aplicativos podem usaras teclas 
de função para um único propósito; consultar suas instruções 
de operação para detalhes específicos. Quando você estiver 
utilizando o BASIC MSX estas teclas já estarão pré-definidas 
(você pode mudá-las se achar conveniente ). 


F1 

COLOR 

FZ 

AUTO 

F3 

GOTO 

F4 

LIST 

F5 

RUN (não precisa de RE TURN) 

F6 

COLOR 15, U 

F7 

CLOAD 

F8 

CONT 

F9 

LIST 

FIO 

RUN (precisa de RE TURN) 


REPETIÇÃO AUTOMATICA DAS TECLAS 

Você deve ter descoberto que se pressionar a tecla e mantê-la pressionada, ela 
será repetida automaticamente, Esta característica funciona com todas as 
teclas exceto CONTROL, SHIFT e INSERT quando pressionadas sozinhas. 
Embora combinações destas teclas com outras sejam repetidas, 

DIGITANDO COMANDOS 

Quando aparentemente não existe nenhum sistema ativo por trás do cursor, o 
MSX está provavelmente aguardando um comando. Você executa comandos 
digitando uma sequência de teclas, O computador, dirigido pelo programa, 
examina o que você digitou e tenta determinar o que fazer. Digite algo correta- 
mente e o programa fará com que o computador carregue o seu comando. 
Assim, é o programa e não o próprio computador, que determina a validade dos 
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comandos que você digitou. 

Cada programa tem o seu próprio conjunto de comandos, e quando ele controla 
o MSX, estes são os únicos comandos que o MSX entende. Pode ser um pro- 
grama aplicativo que está sendo controlado — por exemplo, um processador de 
texto. Por outro lado, o interpretador BASIC MSX pode estar no controle. Isto 
quer dizer que precisamos saber qual o programa que esta controlando o MSX 
quando nos preparamos para digitar um comando. 

Um comando pode não ser exclusivo de um único pograma, Mas, tenha cuidado, 
porque mesmo que um comando pareça o mesmo, seu efeito pode diferir de 
acordo com a tarefa que realiza. Em outras palavras, uma certa sequência de 
teclas pode significar uma coisa em um programa, a mesma coisa para outro 
programa, algo inteiramente diferente para um terceiro programa, e nada para 
um quarto programa. 

Devido ao tamanho dos comandos ser variável, não existe um limite prático 
para seu tamanho, O programa que está no controle não age até que termine- 
mos de digitar. O caracter que avisa que terminamos de digitar um comando 
geralmente é o 4 (RE TURN). Portanto, se você digitar um comando e ficar 
sentado esperando que algo aconteça, provavelmente esqueceu de digitar RE- 
TURN, Existem comandos que não precisam de final iz adores e muitos poucos 
que utilizam outros tipos de finalizado res, por isto, excessões como estas devem 
estar bem documentadas nos manuais dos programas que os utilizam. 

CORRIGINDO DIGITAÇÕES ERRADAS 

Cometer um erro e o computador fazer algo errado ou mesmo nada, acontece 
com todo mundo. Poucas pessoas nunca cometem erros, por isto o MSX fornece 
meios para corrigir erros. Para erros que você notou antes de pressionar RE- 
TURN t use a tecla BackSpacc (BS) para corrigl-io* quando notar que o erro está 
no inicio de um comando ou de uma linha de comando, faça uso das teclas com 
as setas que estão localizadas do lado direito inferior de seu teclado. Posh 
cíone o cursor embaixo do caracter errado e digite o caracter correto, 

ACESSANDO OS CARACTERES GRÁFICOS DIRETAMENTE 

Se você desejar fazer desenhos na tela, ou colocar algum caracter gráfico em seu 
programa aplicativo, deve usaras teclas LGRA e RGRA. Estas teclas sozinhas e 
também junto com a tecla SHIFT permitem que você acesse todos os caracteres 
contidos na tabela ASCII que está na EPROM do seu computador. 

Para saber quais caracteres sâo acessados veja o manual do seu computador. 


Capítulo 2 

JOGOS E PROGRAMAS PRÁTICOS 
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GERAÇÃO DE CARACTER 

O programa Ge ração de Caracter (CAEACS) permite a você mostrar um carac- 
ter (ou um sinal \ em tamanho maior, no sentido inverso da tela e gerar uma 
saída do mesmo para a sua impressora. 

O comando DIM nas linhas 120 - 140 define as três matrizes de caracteres. A$ 
contém os 26 caracteres alfabéticos (eles devem ser digitados com a tecla C APS 
LOCK acionada), N$ contém os 10 dígitos numéricos de 0 a 9 e PS contém os 
valores dos caracteres de pontuação (ponto-e- vírgula, dois-pontos, ponto, hífen, 
exclamação, asterisco, ponto-de-interrogação e o sinal de mais). 

As linhas 200 - 270 leem (RE A D) os dados que mostram os caracteres alfabéticos. 
Como cada linha é lida de um comando DATA, ele é colocado em uma matriz 
bidimensional A$. Isto é, a primeira linha de caracteres, por exemplo, A's vai em 
A$(l t i), a seguir em A${1,2) etc., até o valor "CARACTER” ser lido: para o 
próximo caracter, a primeira linha de B’s é colocada em A$(2,l), em A${2,2); e 
assim por diante, até o valor “caracter” ser lido. Após cada caracter ser lido. Cl, a 
primeira variável subscrita, é incrementada de 1; e C2, a segunda variável 
subscrita, é colocada em 0 . Assim, a letra A está contida em A$< 1,1) até A$í 1 .9 ), e 
assim por diante, até a letra Z, a qual esta nas variáveis A$(26,l ) até A$(26,ll ). 
Quando a linha 230 é lida (READ) o ”FIM ,T do comando DATA da linha 3.990 
indica que a carga dos caracteres alfabéticos foi realizada e o controle passa 
para a linha 280 para começar a carga dos dígitos numéricos. 

O digito numérico é lidr (RE AD), assim como os caracteres de pontuação nas 
linhas 280 - 350 e 360 - 430, são carregados de modo similar; mas, naturalmente, 
as matrizes N$ e P$ têm os valores apropriados. Se você respondeu S à questão 
da linha 160, o comando DATA pode ser mostrado na tela ã medida que ele vai 
carregando a memória. 

As linhas 440 - 500 então permitem que você digite uma mensagem para ser 
mostrada na tela ou impressa em sua impessora em letras maiores. Digitando 
FIM, você pode parar o programa. 

Nas linhas 580 a 1.030, a análise c ar ac te r-por -caracter da mensagem é feita, 
fazendo com que a linha apropriada para aumentar o caracter seja chamaria da 
memória. As linhas 580 a 600 iniciam a análise. O programa procura por uma 
mensagem inteira, da esquerda para a direita. A função M1D$ isola cada carac- 
ter; por exemplo MID$(B$,2,1 j procura o segundo caracter de B$ (a mensagem 
que foi digitada) para o comprimento de 1 caracter Então o valor ASCII corres- 
pondente àquele caracter é colocado na variável A. Se o vaior de X$ está entre A 
e Z, a linha 620 pula para a rotina de caracteres alfabéticos que começa na linha 
790. A linha 640 envia os valores numéricos para a linha 870, e todos os outros 
pulam para a linha 660 para avaliação da pontuação. 

Note que 64 ou 47 é subtraído do valor ASCII (para caracteres alfabéticos e 
valores numéricos, respectivamente). O resultado deste cálculo é que A agora 
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contém a própria variável subscrita íde 1 a 26 oude 1 a 10) e pode carregar a 
informação do caracter aumentado). 

Os comandos nas linhas 660 * 730 dão aos caracteres de pontuação o valor 
subscrito apropriado. Qualquer outro caracter é inválido e causa o surgimento 
de um espaço (1 0 Unhas em branco, como definido nas tinhas 740 - 780 1 As linhas 
790 - 860 imprimem (PRINT/LPRINT) os caracteres A a Z; as linhas 870 - 940 
imprimem (PRINT / LPRINT) os números 0 a 9; e as linhas 950 - 1.020 imprimem 
(PRINT / LPRINT) os caracteres de pontuação. A linha 1 ,030 a seguir transfere o 
controle de novo para a linha 440 para criar outra mensagem ou finalizar o 
programa. 

Observando os comandos DATA das linhas 1 040 - 5.860, você pode facilmente 
ver como o caracter foi criado. A altura e a aparência de cada caracter pode ser 
modificada se desejado. 


10 

20 
30 
40 
50 
60 
70 
80 
90 
ÍOO 
1 10 
,120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


\|/ \£/ O/ iL* U/ Vj/ \ 5 / ■d/ V*/- iJy * 1 * ytf li/- sJy- íi/ di- vi/ vi/ vl/ vl/ vÊ/ vi/ 

■n' nr? nv rlv /fv /|\. Jfv /jv /fv íp. rp. nv /fv rji íp. 


* 

& 

* 

* 

* 

Hí 

* 


GERACAO DE CARACTER 


DIREITOS AUTORAIS 


NELSON ALVES 


RE ri 
REM 
REri 
REri 
REM 
REri 
REri 
REri 
REri 
REri 
KEY 
Díri 
D I ri 
DIri 
CLS 

INPUT “LISTAR 
PRINT 3 PRINT 
Cl « 1 
C2 = 0 
READ X* 

IF AV$ <> "S" THEN 

IF X* O n CARACTER 
IF Xí = “FIM" THEN 

C2 - C2+I 


* 

* 

>tí 

* 

H< 

* 

* 


DF F 

A* (30, 16) 
N$Í15, 16) 
(15, 16) 


NA TELA CÜriO MATRIZ (S/N) 
CARREGANDO AS riATRlZES... 


5AY$ 


230 
1 AND 
Cl » 


X* (> "FIM" THEN PRINT X$ 
1 ; C2 = O = GOTO 280 


250 A*(C1,C2) = XS 

260 IF = "CARACTER 11 THEN Cl = Cl*Ií C2 = O 
270 60T0 200 
280 READ X* 
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290 IF AY$ <> "S" THEN 310 

300 IF X* O " CARACTER " AND Xt O "FIM” THEN PRINT X* 

310 IF Xt - "FIM" THEN Cl = 1J C2 = O: GOTO 360 

320 C2 = C2 + 1 
330 Nt (Cl ,C2) = Xt 

340 IF X* = "CARACTER" THEN Cl = Cl+1: C2 = O 
350 GOTO 280 
360 RE PD X* 

370 IF AY* O "S" THEN 390 

380 IF X* - "CARACTER" AND X* = "FIM" THEN PRINT X* 

390 IF X* = "FIM" THEN Cl = li C2 = O: GOTO 440 

400 C2 = C2 + 1 
410 P*(C1,C2> = X* 

420 IF X* = "CARACTER" THEN Cl = Cl + 1 ; C2 = O 
430 GOTO 360 
440 CLS 

450 LBCRTE 0,6 

460 INPUT "IMPRIMIR (S/N) " ;St 

470 PRINT 

480 PRINT "(FIM PflRA TERMINPR O PROGRAMA) " 

490 PRINT 


500 INPUT "QUAL 0 CARACTER DESEJADO " ; 8$ 

510 IF Bt = "FIM" THEN 5370 
520 IF St <> "S" THEN 580 

530 PRINT 

540 INPUT "IMPRESSÃO (N)ORMAL ÜU (C) ONDENSADA ";RYt 
550 LPRINT CHRt (27) ;CHR* (73) ; 

560 IF RY* = "N" THEN 580 
570 LPRINT CHRt (27) íCHfitíSl ) ; 

5S0 FOR I = 1 TO LEN(Bt) 

590 X* = MI D* (Bt, 1,1) 

600 A - ASC (Xt ) 

610 REM *** LETRAS *** 

620 IF Xt >= "A" AND Xt <= "Z" THEN A- A-64 s GOTO 790 
630 REM *** NUMEROS #*# 

640 IF Xt > = "0" AND Xt (= "9" THEN A = A-47 : GOTO 870 
650 REM *** PONTUACAO *** 


660 

IF 

X* 

= 

■ i w n 
í 

THEN 

A 

* 

2: 

GOTO 

950 

670 

IF 

X* 

= 

ii é ii 

m 

THEN 

A 

= 

T m 

GOTO 

950 

680 

IF 

X* 


■ 1 Jl 

THEN 

A 

= 

4i 

GOTO 

950 

690 

IF 

X$ 

S= 

II ** 

THEN 

A 


5: 

GOTO 

950 

700 

IF 

X$ 

= 

II i 11 

THEN 

A 


6 1 

GOTO 

950 

710 

IF 

X* 

1= 

llj^ll 

THEN 

A 

- 

7 * 

GOTO 

950 

720 

IF 

X* 

= 

■ ■ O 11 

THEN 

A 

= 

85 

GOTO 

950 

730 

IF 

X$ 

- 

11 11 

THEN 

A 

as 

9s 

GOTO 

950 
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74G 
750 
760 
770 
780 
790 
000 
810 
020 
830 
S40 
850 
860 
870 
800 
890 
900 
910 
920 
930 
940 
950 
980 
970 
9S0 
990 
1000 
1010 
1020 
1030 
1040 
1 050 
1060 
1070 
1080 
1090 
1 100 
1 no 
1120 
1 130 
1140 
1150 
1160 
1170 
1180 


ESPAÇO 
1 TÜ 


REN ## 

FOR J 
LPRINT 
NEXT J 
GOTO 1020 
FOR 3 = 1 TO 
IF AS<A,3) = 

IF S* í> "S" 
LPRINT 
GOTO Q 


10 


15 

"CARACTER" 
THEN S4Q 
SPCUO) J) 

0 


THEN 860 


PRINT SPC í 1 0 > J> 

NEXT J 
GOTO 1020 
FOR J “ 1 TO 15 
IF NÍ(fl,J) * XftRfiCTÊR ,í 
IF S* <> JÍ S" THEN 920 
LPRINT SPC(IO) íN*(A,J) 
GOTO 930 

PRINT SPC(IO) J> 
NEXT J 
GOTO 1020 
FQR J * 1 TO 15 
IF P$<A,J) « "CARACTER" 
IF S* <> "S“ THEN 1000 

LPRINT SPC (10) iP$ CA, J) 
GOTO 1010 

PRINT SPC(10HP*ífliJ> 
NEXT J 
NEXT I 

FOR I - 1 TO 
DATA H,r 

A A AA A A A A RR A AAA A 11 
RAfiftftftjplHAAAAAAAA ,í 
A A AA" 

A A AA" 

A A AP 11 

AAAAAAAAAARAAAAA " 
AAAA AAARAAAAAA A " 


THEN 860 


THEN 360 


ÍOOO: NEXT I: GOTO 440 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


"CARACTER" 

M lí 

"BBBBBBBBBBBBBBBB " 
"BB BB BB" 

"BB B8 BB 11 


26 MSX — Melhores Programas 


1 190 

DATA 

11 BB BBBB BB" 

1200 

DATA 

11 BBBBB 

BBBBB" 

1210 

DATA 

" BBB 

BBB" 

1220 

DATA 

ii 


1230 

DATA 

" CARACTER " 


1240 

DATA 

11 it 


1250 

DATA 

" CCCCCCCCCCCCCC" 

1260 

DATA 

"CCCCCCCCCCCCCCCC" 

1270 

DATA 

"GGC 

CCC 11 

1280 

DATA 

t4 CC 

CC 11 

1 290 

DATA 

"CC 

CC" 

1 300 

DATA 

"C c 

CC M 

1310 

DATA 

ÍÉ ccc 

ccc n 

1 320 

DATA 

1 - 11 


1330 

DATA 

"CARACTER 11 


1340 

DATA 

11 II 


1 350 

DATA 

11 DDDDDDDDDDDDDDDD " 

1360 

DATA 

" DDDDDDDDDDDDDDDD " 

1370 

DATA 

"DD 

DD" 

1380 

DATA 

"DDB 

DDD" 

1 390 

DATA 

" DDD 

DDD" 

1400 

DATA 

11 DDD 

DDD 11 

1410 

DATA 

11 DDDD 

DDDD" 

1420 

DATA 

" DDDDDDDD" 

1430 

DATA 

11 DDDD" 

1440 

DATA 

ii ii 


1 450 

DATA 

"CARACTER" 


1460 

DATA 

H II 


14 70 

DATA 

"EEEEEEEEEEEEEEEE" 

1480 

DATA 

"EEEEEEEEEEEEEEEE" 

1490 

DATA 

11 EE EF 

EE " 

1500 

DATA 

“EE EE 

EE" 

1510 

DATA 

"EE EE 

EE" 

1520 

DATA 

"FE EE 

EE" 

1530 

DATA 

"EE EF 

EE" 

1540 

DATA 

M àk 


1550 

DATA 

"CARACTER" 


1560 

DATA 

H M 


1570 

DATA 

"FFFFFFFFFFFFFFFF" 

1 580 

DATA 

"FFFFFFFFFFFFFFFF " 

1 590 

DATA 

H FF 

FF" 

1600 

DATA 

- FF 

FF 11 

1610 

DATA 

" FF 

FF" 

1 620 

DATA 

“ FF 

FF M 

1 630 

DATA 

" FF 

FF" 


1640 DATA 
1 650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 


•‘CARACTER" 

II II 

"GGGGGGGG6GGSGGG6" 
" GGGGGGGGGGGGGGGG " 


"G6Ü 

GGG" 

"GG 

GG" 

M GG 

GG" 

"GG GG 

GG" 

"GGGGGG 

GG" 

"GGGGGG 

GG" 


1750 
1760 
1770 
1780 
1790 
1 300 
1810 
1820 
1 030 
1040 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1 930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


DATA 

DATA 

DATR 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


II |i 

"CARPCTER" 

" HHHHHHHHHHHHHHHH " 

'* HHHHHHHHHHHHHHHH *' 
'• HH 1 ’ 

" HH" 

" HH " 

" HH" 

" HHHHHHHHHHHHHHHH " 
" HHHHHHHHHHHHHHHH " 

II H 

"CARACTER" 

li II 

"II II " 

"II li" 

" 1 1 3 I I II I I 1 1 1 I 1 1 1 " 
" I 1 1 1 I I I I I I I I 1 1 I I 11 
"II II" 

"II II" 

ii li 

"CARACTER " 

II li 

"JJJ" 

"JJ" 

" JJ" 

"JJJJJJJJJJJJJJJJ" 

"JJJJJJJJJJJJJJJJ" 

■i ii 

"CARACTER" 

«I li 

11 KKKK KKKKKKKKKKKK " 
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28 M SX — Melhores Programas 


2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 


"KKKKKKKKKKKKKKKK" 
" KKKK" 

M KK KK" 


1 KK 
' KK 
' KK 
1 KK 
‘KK 


KK" 


KK" 

KK" 
KK" 
KK " 


"CARACTER 


ii 


"LLLLLLLLLLLLLLLL" 

"LLLLLLLLLLLXLLLL" 

"LLL" 

"LL" 

"LL ,J 
"LL " 

"LL" 

"LL 11 


"CARACTER" 


2300 

DATA 

2310 

DATA 

2320 

DATA 

2330 

DATA 

2340 

DATA 

2350 

DATA 

2360 

DATA 

2370 

DATA 

2380 

DATA 

2390 

DATA 

2400 

DATA 

2410 

DATA 

2420 

DATA 

2430 

DATA 

2440 

DATA 

2450 

DATA 

2460 

DATA 

2470 

DATA 

2480 

DATA 

2490 

DATA 

2500 

DATA 

25 1 0 

DATA 

2520 

DATA 

2530 

DATA 


"mmmmmmmmmmmmmmmm" 

"MíiHMMMMMMMMMMMM" 

" MM " 

11 MM" 

" MM" 

M MM" 

" MM" 

11 MM " 

" MM" 

11 MM" 

"MMMMMflMMMMMMMMM" 

" MMMMMMMMMMMMMMMM " 


"CARACTER" 

II li 

"NNNNNMNNNNNNNNNN" 
" NNNNNNNNNNNNNNN " 
iJ NMN 11 

11 NNN" 

11 NNN" 

" NNN" 

NNN" 

M NNN" 


Jogos e Programas 


2540 DPT A 
2550 DPTP 


2560 

2570 

2580 

2590 

2600 


DPTP 

DPTP 

DPTP 

DPTP 

DPTP 


1 NNNNNNNNN 1 MNNNNNN " 
1 NNNNNNNNNNNWNNNN 11 

f n 

■CARACTER" 

I 34 

Ir OÜÜQGOODOaOÜOO M 
" OOOOOQQQÜOGGDOOO 1 k 


2610 

DPTP 

"GO 

00" 

2620 

DPTP 

"Qü 

QQ" 

2630 

DPTP 

”00 

00" 

2640 

DPTP 

ji OO 

GG f * 

2650 

DPTP 

11 00 

GO" 

2660 

DPTP 

" GOÜOOGQGOCIÜDOaOÜ " 

2670 

DPTP 

" GGGGOOOOGGGOGG " 

2680 

DPTP 

rt »i 


2690 

DPTP 

"CARACTER 

i » 

2700 

DPTP 

11 41 


2710 

DPTP 

" PPFPPFPF PPPPPPPP " 

2720 

DPTP 

" PPPPPPPPPPPPPPPP " 

2730 

DPTP 

II 

PP pp " 

2740 

DPTP 

JJ 

PP PP 11 

2750 

DPTP 

11 

PP PP " 

2760 

DPTP 

II 

PP PP U 

2770 

DPTP 

II 

PPPPPPPP" 

2780 

DPTP 

H 

PPPPRP M 

2790 

DPTP 

II tl 


2800 

DPTP 

"CARACTER 

i 14 

2810 

DPTP 

14 II 


2820 

DPTP 

" QQQQGQQGQQÜGGQ " 

2330 

DPTP 

" GGGGGQQGQQQGQQQQ " 

2340 

DPTP 

"QQ 

GQ" 

2850 

DPTP 

"GO 

QQ" 

2860 

DPTP 

"GQ 

GQ" 

2870 

DPTP 

"QQ GQ 

QQ 11 

2880 

DPTP 

“QQQQ 

QQ" 


2890 

2900 

2910 

2920 

2930 


DPTP 

DPTP 

DPTP 

DPTP 

DPTP 


2940 DPTP 
2950 DPTP 
2960 DPTP 
2970 DPTP 
2980 DPTP 


” GQGGQQÜQÜQQQQQQQ " 

"GQQQQQGQGQGQGQQ" 

n QQ" 

H QQ H 

14 H 

"corpcter" 

»i ■■ 

"RRRRRRRRRRRRRRRR " 
"RRRRRRRRRRRRRRRR " 
11 RR RR ,J 
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30 MSX — Melhores Programas 


2990 DPTP " RR RR" 

3000 DOTO 11 RRRR RR 1 ' 

3010 DOTO " RRR RR RR" 

3020 DOTO " RRR RRRRRRRRR" 

3030 DOTO “RR RRRRRRR" 

3040 DOTO 

3050 DOTO "CPROCTER" 

3060 DOTO 

3070 DOTO "SS SSSSSSS “ 

3080 DOTO "SS SSSSSSSSS” 


3090 DOTO “SS SS SS" 

3100 DOTO “SS SS SS" 

3110 DOTO "SS SS SS" 

3120 DOTO "SSSSSSSSS SS“ 

3130 DOTO “ SSSSSSS SS" 

3140 DOTO 

3150 DOTO "COROCTER" 

3160 DOTO 

3170 DOTO " TT" 

31 SO DOTO " TT" 

3190 DOTO " TT" 

3200 DOTO " TTTTTTTTTTTTTTTT " 

3210 DOTO "TTTTTTTTTTTTTTTT" 

3220 DOTO " TT " 

3230 DATR " TT" 

32d0 DOTO " TT" 

3250 DOTO "" 

3260 DOTO "COROCTER" 

3270 DOTO 


3280 DOTO " UUUUUUUUULJUUUUU " 
3290 DOTO " UUUUUUUUUUUUUUUU " 


3300 

DATA 

"UU" 

3310 

DATA 

"UU" 

3320 

DATA 

M UU" 

3330 

DATA 

"ÜU" 

3340 

DATA 

"UU" 

3350 

DATA 

" UUUUUUUUUUUUUUUU 


3360 DOTO " UUÜÜUÜUÜUÜUUUUU" 

3370 DOTO "" 

3380 DOTO "COROCTER" 

3390 DOTO " " 

3d00 DOTO " vwv 

3d 1 0 DOTO " WW“ 

3420 DOTO " WW" 

3430 DOTO " WW" 
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3440 

DATA 

3450 

DATA 

3460 

DATA 

3470 

DATA 

3480 

DATA 

3490 

DATA 

3500 

DATA 

3510 

DATA 

3520 

DATA 

3530 

DATA 

3540 

DATA 

3550 

DATA 

3560 

DATA 

3570 

DATA 

3580 

DATA 

3590 

DATA 

3600 

DATA 

3610 

DATA 

3620 

DATA 

3630 

DATA 

3640 

DATA 

3650 

DATA 

3660 

DATA 

3670 

DATA 

3680 

DATA 

3690 

DATA 

3700 

DATA 

3710 

DATA 

3720 

DATA 

3730 

DATA 

3740 

DATA 

3750 

DATA 

3760 

DATA 

3770 

DATA 

3780 

DATA 

3790 

DATA 

3800 

DATA 

3810 

DATA 

3820 

DATA 

3830 

DATA 

3040 

DATA 

3850 

DATA 

3860 

DATA 

3870 

DATA 

3880 

DATA 


"WVV" 

|J yy ■' 

"WW" 

" WW" 

" wvr 

" WVV 1 ' 

,É WW" 

H II 

14 II 

" CARACTER " 

ii i» 

" wwwwwwwwwwwwwwww " 
11 WWWWWWWWWWWWWWW" 
" www ,r 

11 WWW" 

11 WWW " 

" WWW 11 

11 WWW' 1 

" WWWWWWWWWWWWWWW" 
11 WWWWWWWWWWWWWWWW " 

11 II 

"CARACTER" 


"XXX XXX" 

" XXX XXX” 

XXX XXX" 

11 XXXX" 

" XXXX" 

11 XXX XXX" 

11 XXX XXX" 

"XXX XXX” 

II 11 

"CARACTER" 

II II 

YYY " 

" YYY" 

,1 YYY " 

"YYYYYYYYYY" 
"YYYYYYYYYY " 

11 YYY" 

" YYY" 

" YYY" 

1| É1 

" CARACTER" 


32 MSX — Afle/frores Programas 


3890 

DATA 

"ZZ 

j I 

J— 

3900 

DATA 

,J ZZZ 

ZZ" 

3910 

DATA 

A- 


3920 

DATA 

il“?V 77*? 

i_ íL iLiLjL 

ZZ” 

3930 

DATA 

** iLíl. lZZ 

ZZ" 

3940 

DATA 

"ZZ zz 

:z zz" 

3950 

DATA 

"ZZ 

ZZZ ZZ" 

3960 

DATA 

"ZZ 

7777 èí 

3970 

DATA 

11 ZZ 

ZZ " 

3980 

DATA 

11 li 


3990 

DATA 

"FIM" 


4000 

DATA 

II it 


4010 

DATA 

" Q0000000000000" 

4020 

DATA 

"OOOOOOOOOOOOOOOO " 

4030 

DATA 

"000000 

00" 

4040 

DATA 

M 00 OOOÜ 

00" 

4050 

DATA 

"00 

OOOOOO" 

4060 

DATA 

" OOOOOOOOOOOOOOOO " 

4070 

DATA 

" OOOOOOOOÜOOOOO *■ 

4080 

DATA 

11 II 


4090 

DATA 

"CARACTER" 


4100 

DATA 

11 li 


41 10 

DATA 

“11 

1 11 

4120 

DATA 

11 1 1 

1 1 “ 

4130 

DATA 

’* 1 H U 1 1 1 1 1 U 1 1 1 1 " 

4140 

DATA 

” 1 1 1 1 1 1 1 1 U 1 1 1 1 1 1 ” 

4150 

DATA 

"11" 


4160 

DATA 

" 1 1 " 


4170 

DATA 

r> if 


4180 

DATA 

"CARACTER" 


4190 

DATA 

II II 


4200 

DATA 

"22 

22 " 

4210 

DATA 

"2222 

22" 

4220 

DATA 

"22 222 

22" 

4230 

DATA 

"22 222 

22" 

4240 

DATA 

"22 222 

22" 

4250 

DATA 

"22 2 

2 222" 

4260 

DATA 

"22 

22222" 

4270 

DATA 

"22 

222" 

4280 

DATA 

II II 


4290 

DATA 

" CARACTER 11 


4300 

DATA 

ti ii 


4310 

DATA 

"33 

33" 

4320 

DATA 

"33 

33" 

4330 

DATA 

"33 

33" 


Jogos e Programas Práticos 


33 


34 MSX — Melhores Programas 


4340 

OPTA 

" 33 33 

33 

4350 

DATA 

" 33 33 

33 

4360 

DATA 

"333 3333 

333 

4370 

DATA 

" 333 333333 

333" 

4380 

DATA 

" 33333 33333" 

4390 

DATA 

a ii 


4400 

DATA 

"CARACTER" 


4410 

DATA 

li lf 


4420 

DATA 

11 444 11 


4430 

DATA 

" 4444" 


4440 

DATA 

" 44 444" 


4450 

DATA 

" 44 444 " 

4460 

DATA 

" 44 

444" 

4470 

DATA 

" 44 

444" 

4430 

DATA 

" 444444444444444 " 

4490 

DATA 

" 444444444444444 " 

4500 

DATA 

» a&« 


4510 

DATA 

" ãü" 


4520 

DATA 

" 11 


4530 

DATA 

"CARACTER" 


4540 

DATA 

II II 


4550 

DATA 

"55 55555555" 

4560 

DATA 

"55 5555 

5555" 

4570 

DATA 

"55 55 

55 11 

4580 

DATA 

"55 55 

55 " 

4590 

DATA 

>-J j k— 1 ÜÜlJÜ 

55 11 

4600 

DATA 

" 5555555 

55 11 

4610 

DATA 

" 55555 

55" 

4620 

DATA 

ii li 


4630 

DATA 

"CARACTER" 


4640 

DATA 

ii ii 


4650 

DATA 

" 6666666666666" 

4660 

DATA 

"666666666666666 n 

4670 

DATA 

" 66 66 

66" 

4680 

DATA 

"66 66 

66 

4690 

DATA 

"66 66 

66 " 

4700 

DATA 

11 666666666 

66" 

4710 

DATA 

6666666 

66" 

4720 

DATA 

" 66666 

6" 

4730 

DATA 

M ii 


4740 

DATA 

"CARACTER" 


4750 

DATA 

M II 


4760 

DATA 

"777 

77" 

4770 

DATA 

” 777 

77" 

4780 

DATA 

" 777 

77" 


4790 

DATA 

" 777 

77" 

4800 

DATA 

riri 

777 

77" 

4810 

DATA 

II 

77777" 

4820 

DATA 

II 


77 7" 

4830 

DATA 

II II 



4840 

DATA 

"CARACTER" 


4850 

DATA 

ii ii 



4860 

DATA 

" 888888 

: 888888" 

4870 

DATA 

"8888888888888888" 

4880 

DATA 

"88 

89 

88" 

4890 

DATA 

"88 

88 

88" 

4900 

DATA 

"88 

88 

88" 

4910 

DATA 

"88 

88 

88" 

4920 

DATA 

" 8E308e8S88S888S8&'' 

4930 

DATA 

" 88888S 

: 888888" 

4940 

DATA 

li II 



4950 

DATA 

"CARACTER" 


4960 

DATA 

ii ii 



497Ü 

DATA 

ii 

999999" 

4980 

DATA 

"99 

99999999" 

4990 

DATA 

"99 

999 

999" 

5000 

DATA 

"99 

99 

99" 

5010 

DATA 

"99 

99 

99" 

5020 

DATA 

"999 

9999 

999" 

5030 

DATA 


5040 

DATA 

" 99999999999999" 

5050 

DATA 

ri ii 



5060 

DATA 

"FIM" 



5070 

DATA 

|l 11 



5080 

DATA 

II 11 



5090 

DATA 

11 11 



5100 

DATA 

"CARACTER" 


5110 

DATA 

li li 



5120 

DATA 

II II 



5130 

DATA 

"X" 



5140 

DATA 

11 XX" 



5150 

DATA 

“ XXX 

XXX" 


5160 

DATA 

" xxxx 

XXX" 


5170 

DATA 

" XXX 

XXX" 


5180 

DATA 

II il 



5190 

DATA 

il lf 



5200 

DATA 

"CARACTER" 


5210 

DATA 

il rt 



5220 

DATA 

ri i rit 



5230 

DATA 

11 XXX 

XXX" 
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5240 

DATA 

" XXX XXX*' 

5250 

DATA 

" XXX XXX" 

5260 

DATA 

Ii li 

5270 

DATA 

II 11 

5280 

DATA 

"CARACTER 31 

5290 

DATA 

M II 

5300 

DATA 

IJ IR 

5310 

DATA 

"XXX" 

5320 

DATA 

"XXX" 

5330 

DATA 

"XXX" 

5340 

DATA 

II PI 

5350 

DATA 

1. 1. 

5360 

DATA 

"CARACTER" 

5370 

DATA 

tl II 

5380 

DATA 

RI II 

5390 

DATA 

" XX 

5400 

DATA 

" XX 

5410 

DATA 

" XX 

5420 

DATA 

M XX 

5430 

DATA 

11 XX 

5440 

DATA 

" XX 

5450 

DATA 

ii fel 

5460 

DATA 

"CARACTER" 

5470 

DATA 

ii ii 

5480 

DATA 

ii ii 

5490 

DATA 

"XXX XXXXXXXX" 

5500 

DATA 

" XXX xxxxxxxxxx 

5510 

DATA 

"XXX XXXXXXXX" 

5520 

DATA 

II II 

5530 

DATA 

II IR 

5540 

DATA 

"CARACTER 11 

5550 

DATA 

ii ii 

5560 

DATA 

" X X X" 

5570 

DATA 

" X X X" 

5580 

DATA 

X X X" 

5590 

DATA 

11 XXX" 

5600 

DATA 

" XXXXXXXX XXX ,J 

5610 

DATA 

" XXX" 

5620 

DATA 

11 XXX" 

5630 

DATA 

XXX " 

5640 

DATA 

11 X X X a 

5650 

DATA 

ll 11 

5660 

DATA 

"CARACTER" 

5670 

DATA 

11 il 

5680 

DATA 

"XX XXXX XX" 


XX 


36 MSX — Melhores Programas 


5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
CLS 2 


11 XX XXX X XX 1 

11 XX XX' 

M XX XX ' 

" XXXXXXXX' 

11 XXXXXX" 

li J1 

"CARACTER " 

pi ti 

11 XX 11 

,J XX 11 

" XX" 

,J XXXXXXXX 11 
" XXXXXXXX" 

" XX a 

" XX 11 

,J XX tl 

"CARACTER" 

"FIM" 

END 
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d d d d 

dd dd 

d d dd 

dd dd 

d d dd 

d d dd d d d ddd d dd d d d 

dddddddddddddddd 


d d d d 

dd d d 

dd dd 

dd dd 

dd dd 

dddddddddddddddd 

dddddddddddddddd 


bbbbbbbbtíbbtíbbb 
bbbbbbbbüybbbbüb 
bb bb 
bb bb 

bb bb 

bbbbUbbbübbbbbbb 

bbbbbbbbbbbbbbb 


li 

li 

il 

1111111111111X11 

iiiiiiiiiiiiiiii 

li 

li 

li 


SB sssssss 

ss sssssssss 

ss ss ss 

ss ss ss 

ss ss ss 

sssssssss ss 

sssssss ss 


Figura l. Programa Geração de Caracter: 
exemplo (1 ) de saída do programa. 
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SS SSSSSSS 
SS SSSSSSSSS 
SS SS SS 
SS SS SS 
SS ss ss 
sssssssss ss 
sssssss ss 


yy «y 
yy yy 
yy yy 
yyyyyyyyyyyyyyyy 
yyyyyyyyyyyytíyy 


mmx m 
ddyyydsyy m 
yy m mí 
m ytraa 

m dd 

yy m 

yyyyyyyyyyyyyyyy 
yyyyyyyyyyyyyyyy 


m 888 


m assa as 
as ae as 
86 86 68 
0888888868868988 
8689886888868886 


33 33 33 

33 33 33 

33 33 33 

33 33 33 

33 33 33 

3333333333333333 

3333333333333333 Figura 2. Programa Geração de Caracter: 

exemplo (2) de saída do programa. 
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GERAÇAO DE SOM 

O programa Geração de Som (SOM) é um programa de entretenimento que 
permite que você digite qualquer mensagem que deseja ver repetida várias 
vezes na Leia, Ao mesmo tempo em que a mensagem é mostrada, um beep ou 
tom é emitido. 

Após você ter selecionadado a mensagem na linha 130, a linha 150 solicita 
número de beeps. Sc você quiser que a mensagem seja mostrada por um longo 
período, digite um número alto, A tela é “limpa” após cada beep se você responder 
fí à pergunta da linha 180. Se você quiser repetir a mensagem, digite MESMA 
para a pergunta “QUAL A MENSAGEM?”; você não será solicitado a informara 
quantidade de beeps ou a zerar a tela. 


10 1 

REM 

vi/ VU fci/ \\ r hàf k£/ C/ U/ tJ# tl/ sl* U J «J/ Vl/ U> U/ VI/ *2/ U/ f 

jt* vp /p /p. /p /p ,rp /p /p #p /p /p /p /p /p, /p. ./p /p jp 

20 1 

REM 

* 


Hí 

30 í 

REM 

>K 

GERflCfiQ DE SOM 

* 

40 

REM 

* 


H< 

50 

REM 


DIREITOS AUTORAIS 

Hí 

60 

REN 

* 


* 

70 

REN 

* 

NELSON ALÚES 

Hí 

B0 

REN 

H< 


* 

90 

REN 

* 


* 

100 

REM 

v L h ■fcLr f vLr vi/ ii/ h 1 / \I/ vi/ v|/ ■Jt/' \Í/ \1/ vl/ vJtf U/ U/ d/ *i/ 

/J\ /p iJV, Jp /p ip ip /p, /P rP rP /P rP rP *P -rP ^P ^P j T> J T t- "P 'r 

110 

KEY 

OFF 


120 

CLS 




130 

INPUT 

'■QUAL E A MENSAGEM 

(XX 

140 

IF 

X* 

= " MESMA" THEN 200 


1 50 

IF 

Xí 

= "XX" THEN 270 


160 

Lí 

= Xí 


170 

1 NPUT 

" QUANTOS BEEPS ";B 


180 

I NPUT 

"LIMPAR A TELA (S/N) " 

190 

GOTO 2 

10 



^ FINftL) 


; SN* 


200 Xí - Lí 


210 FOR I = 1 TO B 

220 JF SNÍ <> "S" THEN 240 

230 CLS 

240 PRINT I Um (6) ;X*iCHRí (7) 
250 NEXT I 
260 GOTO 120 
270 CLS í END 


M ?Xí 
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ANIVERSARIANTES 

O programa Aniversariantes (ANTVER) pode listar todos os nomes de seus 
conhecidos os quais fazem aniversário em qualquer mês ou fornece a você uma 
lista em ordem alfabética dos nomes e datas de aniversario. 

Ele não é limitado à criação de lista de aniversariantes. Múltiplas cópias deste 
programa podem servir para diversos propósitos; além da versão para aniversa- 
riantes, uma versão com um calendário pessoal pode ser criada, ou uma combi- 
nação das duas. Por exemplo, ANIVEK pode gerar um calendário de eventos 
para qualquer mês ou criar uma lista cm ordem alfabética do nome dos eventos. 
Ou, se você quer ver todas as reuniões que você terá com uma determinada 
pessoa ou organização, você pode tirar uma listagem classificada (desde que, 
naturalmente, você seja cuidadoso ao inserir os nomes das reuniões da mesma 
maneira todas as vezes K Em 10 de janeiro, você pode ter dez coisas listadas para 
você lembrar, embora no dia 11, você tenha três; comeste programa, você não 
tem que manter o registro de todas elas na sua memória, 

Você pode substituir os comandos DATA nas linhas 130 - 480 com seus próprios 
nomes. Apenas digite seus próprios comandos DATA ao invés dos que estão 
iítados (a menos que você queira lembrar da minha lista de aniversariantes). 
Note que o último comando DATA é 09/99/99 ZZZZZ (linha 480), ele é necessário 
para indicar ao comando RE A D da linha 510 que todos os dados de entrada 
foram lidos. Você pode acrescentar ou apagar dados de entrada através da 
digitação de novos comandos DATA ou da eliminação de alguns. 

Vamos ver algumas instruções do programa que são de interesse. Após os 
comandos DATA terem sido lidos e colocados na matriz X$ nas linhas 500 - 530, 
suas opções são as seguintes: 

1- Listar todos os aniversariantes ou reuniões em qualquer mês (01 a 12); 

2, Listar em ordem alfabética todos os nomes ou reuniões descritas; 

3, Finalizar o programa. 

Estas opções são dadas nas linhas 560 - 710. 

Se você digitar A (para uma listagem em ordem alfabética), o controle passa da 
linha 720 para a linha 1 .150. O FIM determina que o programa seja finalizado e 
pula da linha 730 para a linha 1.480, As linhas 740 - 820 analizam qualquer 
outra seleção para ter certeza de que um número de dois dígitos foi digitado; 
elas olham em Sl$ (o primeiro caracter) e S2$ (o segundo caracter) para ter 
certeza de que eles estão entre 0 e 9. O cheque não é muito perfeito, já que meses 
maiores do que 12 podem ser solicitados, 

Se você digitar o número de um mês, o programa então classifica os dados, 
rearranj ando-os em ordem, considerando os primeiros cinco caracteres (o dia, 
uma barra e o mês), Uma classificação do tipo “bolha" nas linhas 830 - 950 realiza 
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isto. Note que cada vez que você pedir as reuniões de um mês íou outra informa- 
ção), você reclassificará os dados. Você pode pensar que este processo é muito 
ineficiente; entretanto, se os dados já estão na ordem dia/mês, a classificação 
verifica o dado somente uma vez para verificar que os elementos já estão em 
sequência. Lembre de outros exemplos do livro que na classificação pelo mé- 
todo da bolha T um sinalizador é mantido para verse qualquer elemento está fora 
de ordem e então mudá-lo. Neste caso, o sinalizador é SW$ nas linhas 830, 930 e 
950. Se nenhum elemento estiver fora de ordem, a classificação será terminada. 

Depois, você é perguntado se quer uma listagem impressa ou exibida na teia 
(linha 980 1 Devido aos primeiros dois caracteres serem iguais ao mês selecio- 
nado, somente os dados deste mês são mostrados. ( Vej a a linha 1.010). Note que 
se você digitar 13 como o mês selecionado, todos os dados serão mostrados na 
sequência dia/mês. Agora você pode ver que se digitar um número maior do que 
13,o programa classificará (ou re classificará ) os dados na sequência día/mês — a 
menos que, naturalmente, você digite em seus comandos DATA meses maiores 
do que 12. 

Se você selecionar uma lista em ordem alfabética, as linhas 1.160-1*300 classifi- 
cam os dados em ordem alfabética, usando a chave de classificação a partir da 
décima posição do dado (após o espaço seguinte aos oito caracteres da datai 
para o final de cada elemento. A função MIDS nas linhas 1.220 -1.230 analizamos 
nomes. Novamente, você pode obter uma listagem em ordem alfabética; se você 
não tiver uma impressora, poderá mostrar 20 itens de cada vez na tela. Após cada 
tela T pressione RETURN para continuar. 


10 REM 
20 REM 
30 REM 
40 REM 
30 REM 
60 REM 
70 REM 
80 REM 


út Ur tfr id/ '*1/ ■Jr út y|/ d/ -d/ \ir d/ Ur 
^T> «T» íP *7' qr*' »T‘ *7% /p. n'- 4n 


* * 

* ANIVERSARIANTES * 

* * 

* DIREITGS AUTORAIS X< 

* * 

* NELSON ALVES * 

* * 


90 REM * # 

100 REM X(X<X<X<X<X<Xc>K>K>KX<XOKX;X<*X( X<X<X 0 I<X 0 I< 
110 KEY OFF 
120 CLS 

130 DATA 25/02/59 RUBENS 
140 DATA 05/10/65 JOAÜ 
150 DATA 01/05/29 ELIO 
1Í>0 DATA 01/01/37 CLAUDINA 
170 DATA 03/05/59 WIL5QN 
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180 

DATA 

03/05/56 

TGNY 

190 

DATA 

15/03/62 

LUCIANE 

200 

DATA 

29/04/61 

BERNARDETE 

210 

DATA 

07/05/57 

CRISTINA 

220 

DATA 

29/05/81 

ER 1 KA 

230 

DATA 

23/12/78 

SISS1 

240 

DATA 

09/04/33 

AGÜSTXNHO 

250 

DATA 

24/02/59 

NELSON 

260 

DATA 

09/09/11 

PABCÜALATÜ 

270 

DATA 

24/05/59 

EL1ANE 

280 

DATA 

06/22/67 

PEDRO 

290 

DATA 

25/06/45 

CARLOS 

300 

DATA 

03/01/71 

ROBERTO 

310 

DATA 

09/08/45 

DÉBORA 

320 

DATA 

19/11/18 

ANDRÉA 

330 

DATA 

15/04/71 

CRIS 

340 

DATA 

29/08/78 

HENRIQUE 

350 

DATA 

13/ 08 / 7 3 

JOSE 

360 

DATA 

23/03/69 

PAULO 

370 

DATA 

07/05/53 

OSVALDO 

380 

DATA 

31/10/58 

ANTENOR 

390 

DATA 

19/02/41 

MARCOS 

400 

DATA 

26/10/70 

AMAUR I 

410 

DATA 

15/05/40 

PORCINA 

420 

DATA 

20/09/30 

MALTA 

430 

DATA 

09/1 1 /45 

FÁBIO 

440 

DATA 

14/02/47 

MATILDE 

450 

DATA 

30/03/59 

ISABEL 

460 

DATA 

24/12/43 

ARTHUR 

470 

DATA 

13/08/13 

ASTRQMAR 

480 

DATA 

99/99/99 

ZZZZZ 


490 DIM X¥(200) 

500 FOR I = 1 TO 200 
510 READ X*<I) 

520 IF MIDÍ (X*<I>,1,2> = "99'' THEN 540 

530 NEXT I 
540 CTR = I 
550 CLS 
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580 

PRINT 

J L H< # & # H< tf tft JK Hf # # Hí )K >k >J< >»<>(< # tfí # * M< # X< # N< íK W >(< # " 

570 

PR I NT 

">É< 



580 

PRINT 


ANIVERSÁRIOS NO MES 


590 

PRINT 




800 

PRINT 

11 Hí 



810 

PR I NT 




820 

PRINT 


<13 = TODOS ÜS MESES) 


330 

PRINT 



>K H 

640 

PRINT 

11 Hí 

í A = ANIVERSARIANTES EM ORDEM) 

jjí" 

850 

PRINT 

41 * 



660 

PR I NT 

";k 

< F I M= FINAL DO PftOSRAMA) 

Hí" 

8 70 

PRINT 

11 >K 


tf 14 

880 

PRINT 




690 

PRINT 

1 1 d/ ‘.1/ '■1/ d/ \k/ d/ '1/ d/ 0/ d/ d/ dd* -d# d/ d/ d/ dj 1 d/ d/ d/ hJ> d/ vL ■* 1/ d/ u/ *1,1/ d/ drf d/ d/ d/ d/ d/ \J/ d/ d/ 1 i 
iT- ff*- í|T- -rp- fp T 1 ■T t *T- ip/pqViiT. /p. /pv m /f\ /|\ ^ f|\ q\ 

700 

PR I NT : 

PRINT 

SPRINT 


710 

INPUT 

"5ELECA0 " 58 * 


720 

IF 5* 

« "A" 

THEN 1150 


730 

ÍF 5* 

= "FIM 11 THEN 1480 



740 Si* = MÍD*(S*iliÍ) 

750 52* = mD$ÍSÍ,2,l) 

730 IF SIS < "O" THEN 550 

770 ÍF Sl* ) "9 14 THEN 550 

780 I F 82* ( "O" THEN 550 

790 IF S2* ) "9" THEN 550 

800 M* = Si* + 32* 

810 PPSS - O 

820 IF LEM<M*> <> 2 THEN 550 
830 5W* = "N 1 * 

eao pass = pfiss+i 

850 CLS 
880 PR INI 

870 PRINT M REALIZANDO Ü SORT s " ;PASS 
880 FOR I =1 TO CTR-Í 

890 IF MID*<X*<I> , 1 ,5) <= MJD*ÍXS U + I) , 1 ,5) THEN 940 

900 V* - X*íl> 

910 X*ÍI) “ X*(l' + D 
920 X*ÍI+1) = Y* 

930 SW* a "S" 

940 NEXT I 

950 IF SW* = "S" THEN 830 
980 CX = 0 
970 PRINT 

980 INPUT "IMPRIMIR ÍS/N) " *ISN$ 

990 FOR 1=1 TO CTR 

1000 IF M* = "13" THEN 1020 
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1010 

IF MIDSíX* < I > ,4,2) O M* 

THEN 

1 110 


1 020 

IF 1 SN* « "S" THEN 1050 




1030 

PRINT X*(I) 




1040 

ÍF I SN* O "S" THEN 1060 




1050 

LPRINT X* ( I) 




1060 

CX ™ CX+1 




1070 

IF CX í 20 THEN 1110 




1080 

cx - 0 




1090 

PRINT 




1 100 

INPUT "PRESSIONE RE: TU RN 

PARA 

CONTINUAR 

" 5 E* 

1 i 10 

NEXT I 




1 1 20 

PRINT 




1 130 

INPUT "PRESS I ONE RETURN 

PARA 

CONTINUAR 

11 ;E* 

1 140 

GOTO 550 




1 150 

PASS = 0 




1 16Ü 

BUI* « 14 N" 




1 170 

PASS = PASS+l 




1 180 

CLS 




1 190 

PRINT 




1200 

PRINT "REALIZANDO 0 SORT 

: " íPASS 


1210 

FOR 1=1 TO CTR- I 




1 220 

81* - MID* ( X* í I ) , 10) 




1230 

S2* = MID*íX*(I+l) t 10) 




1 240 

IF 91* < S2* THEN 1290 




1250 

SW* = "S" 




1 260 

V* = X* (1 ) 




1270 

X*< I) a X* ( 1+1 ) 




1280 

X*ÍI+1> = Y* 




1290 

NEXT I 




1300 

IF SN* - "S" THEN 1160 




1310 

cx - 0 




1 320 

PRINT 




1330 

INPUT "IMPRIMIR (S/N) " t, 

I SN* 



1340 

FQR 1=1 TO CTR 




1350 

IF I SN* « M S“ THEN 1380 




1360 

PRINT X*U) 




1 370 

IF I SN$ <> "S” THEN 1390 



1380 

LPRINT X*<I> 




1390 

CX = CX+1 




1400 

IF CX < 20 THEN 1440 




1410 

CX = 0 




1420 

PRINT 




1430 

INPUT "PRESSIONE RETURN 

PARA 

CONTINUAR 

" ;fes 

1440 

NEXT I 




1 450 

PR í NT 
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1460 INPUT "PRESIONE RETURN PARA CONTINUAR " ? E* 
1470 GOTO 550 
14S0 CLS : END 


01 / 01/37 
Oi /Ü5/29 
03/01/71 
03/05/59 
03/05/56 
05/10/65 
06/22/67 
07/05/57 
07/05/53 
09/04/33 
09/03/45 
09/09/ i 1 
09/ 11/45 
13/03/13 
14/02/47 
15/03/62 
15/04/71 
15/05/40 
18/08/73 
19/02/41 
19/1 1 /ÍB 
20/09/30 
23/03/69 
23/12/76 
24/02/59 
24/05/59 
24/12/43 
25/02/59 
25/06/45 
26/10/70 
29/04/61 
29/05/81 
29/08/78 
30/03/59 
31/10/58 
99/99/99 


CLPUDINA 

EL 10 

ROBERTO 

WILSON 

TONY 

JÜAG 

PEDRO 

CR I ST I NP 

OSVALDO 

AGOSTINHO 

DÉBORA 

PA8C0PLATÜ 

FAB 1 O 

ASTRÜMAR 

MATILDEi 

LUC IA NE 

CRIS 

PORCINA 

JOSE 

MARCOS 

ANDRÉA 

MALTA 

PAULO 

SISSI 

NELSON 

EL 1 A NE 

ARTHUR 

RUBENS 

CARLOS 

AMA UR I 

BEENARDETE 

ER I KA 

HENRIQUE 

ISABEL 

ANTENOR 

ZZZZZ 


Figura 3* Programa Aniversariantes: 
exemplo de saída do programa. 
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BLACKJAC 

0 programa BlackJae (BLAJA) permite que você participe de uma partida de 
BLACKJACK (ou Vinte-e-Um) contra o seu MSX, o qual age como se fosse a 
mesa. Você e a mesa recebem duas cartas cada; as duas faces das suas cartas 
estão para cima. mas uma carta da mesa está com a face para baixo. À medida 
que seus pontos estejam abaixo de vinte-e-um, é possível pedir tantas cartas 
quanto você queira; caso contrário você "estoura" e perde. As cartas de 2 a 10 
têm valores de 2 - 10; o Valete, a Damae o Rei tem valor 1 Geada; um As tem valor 

1 ou 11, Para pedir uma carta, simplesmente responda S à pergunta ^PRES- 
SIONE (S OU N) tf dinhas 790 - 800). Você não precisa pressionar RETURN 
porque a instrução, INKEY$ T aceita o caracter de uma tecia apenas. 

As linhas 130 - 160 iníeializam as matrizes que mantêm registro das cartas da 
mesa (MESA), suas cartas (CARTA), os naipes <S$), e a denominação (D$). O 
loop nas linhas 220 - 240 lê as cartas de^A" a"K" do comando DATA na linha 250 
e as coloca na matriz D$. Nas linhas 260 - 270, a função definida pelo usuário FN I 
é criada para pedir uma carta aleatoriamente da mesa; é dado a você uma 
quantia de 100 cruzados para apostas. 

No inicio de cada jogo, as linhas 290 - 320 colocam em 0 os valores de todas as 
cartas que a mesa e você tinham, e as linhas 330 - 350 reembaralham as cartas dc 
modo que qualquer carta esteja disponível para distribuição. O seu total — os 
pontos que as cartas irão somar ao seu escore — é colocado em 0 T como as da 
mesa também. 

A subrotina GOSUB 1.960 produzo cabeçalho "BLACKJACK ” — com asteris- 
cos em ambos os lados. Você fica sabendo na linha 400 quanto dinheiro tem 
disponível A linha 410 pergunta pela quantia que você quer apostar. Para sair, 
digite 0 ou um número negativo. As linhas 430 - 550 distribuem as quatro 
primeiras cartas, aleatoriamente escolhidas como o primeiro e o segundo subs- 
critos de CARTA e MESA: CART Aí 1 ), CART Aí 2), MESAíl t e MESA(2). A fun- 
ção FN I (descrita na linha 260) escolhe estes subscritos; as linhas 600 - 770 
mostram os valores das cartas. Para mostrá-los, o programa define um valor 
para a variável CARTNO (de 1 a 52) para carta selecionada; a subrotina nas 
linhas 1.270 - 1.360 obtém o naipe e a denominação correta. As cartas são então 
mostradas, mas a segunda carta da mesa é deixada de face para baixo (repre- 
sentada pelos dois pontos de interrogação). Na linha 780, é dado o valor 2 ã 
variável PART de modo que a próxima jogada que você ficar será com a carta 
número 3, e assim por diante. 

As linhas 790 - 800 perguntam se você quer outra carta. As linhas 850 - 890 
procuram outra carta, e o comando GOSUB da linha 1,370 calcula seu escore 
total. A linha 900 então verifica para ver se você "estourou”, neste caso o 
programa salta para a linha 1.030 para dizer que você perdeu e mostra o seu 
escore. Neste ponto, você pode tanto pressionar 1 para finalizar ou qualquer 
outra tecla para continuar (linhas 1.100 - 1.110). Se escolher parar, as linhas 920 - 
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1.010 permitem à mesa (p computador) pedir cartas até ela ter ganho ou estou- 
rado. A subrotina GO SUB 1.660 na linha 930 obtém os valores das cartas 
pedidas e mostra-as na tela. As tinhas 1 020 - 1.250 novamente mostram as 
mensagens do vencedor ou perdedor, e passam o controle da linha 1.1 40 de volta 
para a linha 290 para o próximo jogo. Experimente. É um jogo para todas as 


idades! 




10 REM 

'J/ \1/ \1/ \L r 'J/ 'J' 1 '1/ il/ vb i Uj 

"m «T 1 ™ " U' 4» fp íp qt q' ■T rp q' rp- qS q, rp- f|V rfS qi i»T\ ql 

20 REM 

* 


tf 

30 REM 

tf 

BLACK JACK 

tf 

40 REM 

tf 


tf 

50 REM 

tf 

DIREITOS AUTORAIS 

tf 

60 REM 

tf 


tf 

70 REM 

* 

NELSON ALVES 

tf 

80 REM 

tf 


tf 

90 REM 

tf 


tf 

100 REM 

\|> iJuT U/ \I/ Ü/ ki/ hl/ Kl/ tjji iF/ \1/ \àá tl/ vL* SÃJ '1/ hÍ/ uh* 

q' 1 qV q' T 1 q* * q^ «Ti q> rfs qN q% q\ 4, q\ /fv q\ q( ql T- «r 

110 KEY 

□FF 



120 CLS 




130 DIM 

MESA (20) 


140 DIM 

CARTA (20) 


150 DIM 

S* C4) 


160 DIM 

DSU3) 


170 REM 

AS 

CARTAS SAD: 


180 REM 

0 * 

PAUS 


190 REM 

1 = 

DUROS 


200 REM 

jL. = 

CGPAS 


210 REM 

3 = 

ESPADAS 


220 FOR 

i = 

1 TO 13 



230 READ D$U) 

240 NEXT I 

250 DATA A, 2* 3, 4, 5, 6, 7, 8,9, 10, J, Q, K 
260 DEF FN KX) - INT í RND (X > tf52> +1 
270 APT = 100 
2S0 DIM DRUNC52) 

290 FOR 1=0 TO 20 
300 MESAU) « O 
310 CART A ( I ) - O 
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320 NEXT 1 
330 FOR I = 1 TO 52 
340 DRWN C "í > = 0 
350 NEXT I 

360 JG6 s Os VOCE = O 
370 CLS 

380 005 UB 1960 
390 LOCATE í , 5 

400 PRINT M 0 VALOR DA APOSTA E DE; ";APT 

410 PRINT; INPUT "VOCE QUER APOSTAR ÍO FINALIZA) " 5 AJOG 

420 IF AJOG < 1 OR AJOG > AFT THÊN 1990 

430 REH tftftf PRIMEIRAS 4 CARTAS tftftf 

440 CARTA ( 1 > “ FN 1(1) 

450 IF DRWN (CARTA ( 1 ) ) = 1 THEN 440 
460 DRWN C CARTA < 1 ) ) = 1 

470 CARTA Í2> * FN I Cl) 

480 IF DRWN < CART A í 2 ) > = 1 THEN 470 
490 DRWN (CARTA (2) ) = 1 

500 MESA ( 1 ) = FN Kl) 

510 IF DRWN < MESA <1>> - 1 THEN 500 
520 DRWN C MESA (D) = 1 
530 MESA ( 2 > “ FN Iü) 

540 IF DRWN (MESA í2) > = 1 THEN 530 

550 DRWN (MESA (2) ) = l 

560 REM >í<>KHí MOSTRA AS CARTAS tftftf 

570 CLS 

5S0 GOSUB 1950 

590 CAETNG - MESA £ 1) 

600 REM tftftf MOSTRA O VALOR DA CARTA tftftf 
610 GOSUB 1270 
620 LOCATE 1,5 
630 PRINT '"MESA" 

640 LOCATE 8,5 
650 PRINT Dl SP* 

660 LOCATE 12,5 
670 PRINT "??" 

680 CARTNO = CARTA C 1 ) 

690 GOSUB 1270 
700 LOCATE 1,8 
710 PRINT "VOCE" 

720 LOCATE 8,8 
730 PRINT Dl SP* 

740 CARTNO = CARTA (2) 

750 GDSUB 1270 
760 LOCATE 12,8 
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770 PRINT Dl SP® 

780 PftRT = 2 
790 LOCftTE 5,20 

800 PRINT "PRESSIONE <S OU N) " 

810 K$ = INKEY® 

620 IF K® = " “ THEN 810 

830 IF K® O "S" THEN GOSUB 1370 

840 IF Kí O “S" THEN 920 

350 PftRT = PftRT + 1 

860 CftRTft (PftRT) = FN líl) 

870 IF DRWN (CftRTft (PftRT) ) = 1 THEN 860 

880 DRWN (CftRTft (PftRT) ) = 1 

890 GOSUB 1370 

900 IF BUST® = *'S" THEN 1020 

910 GOTO 790 

920 PftRT = 2 

930 GOSUB 1660 

940 IF BD* = "S" THEN 1190 

950 IF VOCE = 21 THEN 1150 

960 IF JOG >= VOCE ftND JOG í> O THEN 1230 

970 PftRT = PftRT+1 

980 MESfi ( PftRT ) = FN 1(1) 

990 IF DRWN (MESfi (PftRT) > = 1 THEN 980 

1000 DRWN < MESft ( F'ftRT> ) = 1 

1010 GOTO 930 
1020 LOCftTE 1,15 

1030 PRINT: PRINT! PRINT "VOCE PERDEU !!" 

1040 flPT = ftPT - ft JOG 
1050 PRINT! PRINT 

1060 PRINT "MESfi i " ; JOG i SPC < 5) ; " VOCE : “;VGCE 

1070 IF ftPT > 0 THEN 1100 

1080 FOR I = 1 TO 2000 :NEXT I : GOTO 1990 

1090 CLS s LOCftTE 0,10: PRINT "D JOGO OCftBOU, POIS VOCE 
1100 PRINT SPRINT "RETURN = CONTINUftR, 1 = PftRftR" 

1110 K® = INKEY® 

1120 IF K® = "" THEN 1110 
1130 IF K$ = "1" THEN 1990 
1 1 40 GOTO 290 
1150 LOCftTE 1,15 

1160 PRINT "VOCE GfiNHOU - VINTE-E-UM ! ) ) ! " 1 CHR® (7) 

1170 ftPT = ftPT + ftJOG 
1 1 80 GOTO 1 050 
1190 LOCftTE 1 , 15 

1200 PR I NT "VOCE GftNHDU -■ ft MESfi ESTOUROU !"1CHR®<7) 
1210 ftPT = ftPT + ftJOG 
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1220 GOTO 1050 
1 230 LOCftTE 1,15 

1240 PRINT "VOCE PERDEU - CftRTft MENOR OU IGUftl ■ 11 
1250 GOTO 1040 

1260 REM *** LE CftRTft E DENÜM INPCfiO #** 

12 70 NftlPE = INT < CftRTNO/ 13) 

1280 IF CftRTNO = 13®NftIPE THEN NftlPE = NfiíPE-U S2 = NftlPE 
1290 DENÜM - CftRTNO - (NftIPE*13) 

1300 ON NftIPE+í GOTO 1310,1320,1330,1340 

1310 SS = "p": GOTO 1350 

1320 S® = "O": GOTO 1350 

1330 S® = "C" : GOTO 1350 

1340 S® = " £ “ 

1350 D I SP® = D® (DENOM) +S® 

1360 RETURN 

1370 Y 1 = 0 

1380 PZ = 0 

1390 Y2 = O 

1400 FOR I =1 TO 20 

1410 IF CftRTft ( I ) = 0 THEN 1580 

1420 NftlPE = INT (CftRTft ( I ) /13) 

1430 IF CftRTft ( I ) = 1 3&NPIPE THEN NftlPE = NftIPE-1 ! S2 = NftlPE 

1440 DENOM = CftRTft ( I > - (NftlPE#! 3) 

1450 ON NftlPE GOTO 1460,1470,1480,1490 

1460 S® = "p"s GOTO 1500 

1470 S® = "ü"! GOTO 1500 

1480 S® = “C": GOTO 1500 

1490 S® = "E" 

1500 Dl SP® = D® ( DENOM) +S® 

1510 IF DENOM > 10 THEN DENOM = io 

1520 IF DENÜM ~ 1 ftND fiZ = O THEN Y2 = Y2+11 

1530 IF DENOM = 1 ftND flZ = 1 THEN Y2 = Y2 + DENOM 

1540 IF DENOM <> 1 THEN Y2 = Y2 + DENOM 

1550 IF DENOM = 1 ftND flZ = 0 THEN ftZ = 1 

1560 Y 1 = Y 1 + DENOM 

1570 NEXT I 

1580 BUST* = CHR® (32) 

1590 IF Y 1 í 21 ftND Y2 > 21 THEN BUST* = "S" 

1 600 VOCE = Y2 

1610 IF VOCE ) 21 THEN VOCE = Y1 

1620 CftRTNO = CftRTft (PftRT): GOSUB 1270 
1630 LOCftTE 8+4# (PfiRT-1 > ,8 
1640 PRINT D I SP® 

1650 RETURN 

1660 REM **# ft MESft JOGfi #*# 
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1670 Dl = 0 

16S0 PZ » O 

1690 02 =s O 

1700 FOR I = 1 TO 20 

1710 IF MESP(I) ^ O THEN ISSO 

1720 NP I PE - I NT < MESft í I ) / 1 3 > 

1730 IF MESP < I > = líftNAÍPE THEN NftIPE « NAIPE-l = S2 = NAIPE 
1740 DÊNOM = MESAÍI) - (NAIPE*13> 

1750 ON NPIPE+1 GOTO 1760,1770,1780,1790 

1760 S % = M P M í GOTO 1800 

1770 S* = ,, 0 U : GOTO 1800 

1780 S* =* "C"! GOTO 1800 

1790 S* = *'E ,s 

1800 D IS PS = D* (DENÜM) + SS 

1810 IF DENÜM > 10 THEN DENQM = 10 

1820 IF DENOM = 1 AND PZ ” 0 THEN D2 = D2 + 11 

1830 IF DENQM = 1 PND PZ = 1 THEN D2 = D2 + DENÜM 

1840 IF DENOli <> 1 THEN D2 = D2 + DENQM 

1850 IF DENQM = 1 PND PZ = O THEN PZ = 1 

1860 Dl - Dl + DENOM 

1870 NEXT I 

1880 BDS * CHRÍÍ32) 

1890 IF Dl > 21 PND D2 > 21 THEN BD* = "S 41 
1900 JÜG “ D2 

1910 IF JOG > 21 THEN JOG = Dl 

1920 CART NO = MESA (PPRT) ; GOSUB 1270 
1930 LQCATE 8+4>K í PART” 1 > , 5 
1940 PRINT Dl SP* 

1950 RETÜRN 
1960 LOCPTE 3,2 

1970 PRINT * X< Hc # BLACK JACK Xc >K >K H< 

1930 RETURN 
1990 CLSiEND 
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DADOS 

O programa Dados (JOGO) é um jogo feito para até 10 jogadores. As regras são 
muito simples: todos os jogadores iniciam com um montante de 100 cruzados ou 
pontos (linhas 380 - 400). No inicio do programa, o limite da casa é acertado para 
qualquer aposta; caso contrário, perdedores podem continuar apostando cada 
vez mais até finalmente ganharem uma partida. 

O primeiro jogador faz sua aposta e rola os dados, Se a primeira jogada for um 7 
ou um 11 p este jogador ganha e o próximo jogador tem a sua vez, Se a primeira 
jogada for um 2, um 3, ou um 12, o jogador perde. Caso contrário, o total da 
primeira jogada torna-se os pontos do jogador. Ele joga continuamente até 
obter os pontos ou tirar um 7 e perder. 

Os escores são mantidos na matriz S , a qual ê definida na Unha 120. O ajuste de 
K para “N" na linha 130 faz com que o programa desconsidere os escores 
dos jogadores (de um jogo anterior, por exemplo). O “NO> DE MISTURADAS 
DESEJADO’’ caracterizado na linha 690 sempre garante que ninguém será 
capaz de predeterminar a saída dos dados rolados consistentemente, Você pode 
misturar os dados em sua mão qualquer número de vezes; mas, obviam ente, isto 
não deve ser feito um número muito grande de vezes. 

As linhas 150 - 290 fornecem uma breve descrição na tela, de como o jogo 
funciona, Se você já está familiarizado com as instruções, pode pressionar 
RETURN para prosseguir. As linhas 300 - 400 então realizam certas rotinas de 
inicialização (processamento de dados para inicialização de variáveis de início 
de programa). Você pode inicializar o limite de apostas da mesa, o número de 
jogadores, e o número de partidas que cada jogador terá. Quando este limite for 
atingido, o jogo termina; mas você pode escolher jogar novamente. Pode tam- 
bém manter os escores dos jogos anteriores respondendo S para a pergunta da 
linha 1.000 ía qual coloca a variável K em “S”), 

As linhas 410 - 940 contém um grande loop que é executado tantas vezes quanto 
o número de partidas que foi selecionado. Com ele, o loop POR-NEXT das linhas 
420 - 930 deixa cada jogador ter a sua vez durante cada partida. Na linha 430, 
CTR (representando o número de jogadas feitas ) e a variável ULT são coloca- 
das em 0. A variável ULT, que representa o ponteiro do escore que você está 
tentando igualar, é ajustada para o valor da sua primeira jogada (linha 870). 

Durante o tempo em que o primeiro jogador estiver jogando, o programa saltara 
paia a linha 430 para deixar o jogador jogar novamente os dados. Neste caso, se 
você não obtiver uma vitória nem for derrotado na primeira jogada, a linha 900 
saltará para a linha 440 para a sua segunda tentativa. Do mesmo modo, se você 
não conseguir seus pontos e não tirar um sete, a linha 840 retornará para a linha 
440 para a sua próxima jogada. Você deve jogar até ganhar ou perder. 

As linhas 540 - 680 perguntam pela aposta de cada jogador — que não pode 
exceder o limite da mesa — e avisa se o jogador não tem bastante dinheiro ou 
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pontos para cobrir a aposta (embora a aposta seja aceita de qualquer formal. A 
seguir o programa pergunta quantas vezes você quer misturar os dados. Seus 
dados são rolados nas linhas 710 - 740, e a subrotina chamada da linha 760 
imprime os números que saíram. Se esta for a primeira jogada (determinada 
pelo valor de CTR), a linha 770 saltará para a linha 860 para uma lógica 
especial para a primeira jogada. Na segunda jogada e assim sucessivamente, as 
linhas 780 - 840 determinam se você ganhou através dos pontos (linha 780 >, 
perdeu tirando um 7 (linha 790), ou deve jogar novamente (linha 810). Na pri- 
meira jogada, as linhas 850 e 860 dão a você a vitória ou a derrota, enquanto a 
linha 870 dá o total dos seus dados <DT) para ULT io ponteiro que indica que 
você deve jogar). A cada vez que alguém jogar, a rotina nas linhas 1.030 - 1 180 
imprimirão as quantidades de dinheiro ou pontos restantes para cada jogador. 
Estas quantidades são também mostradas no final do programa. (Veja linhas 
520 e 960). 


10 REM ****************** ***** 


20 REM * * 

30 REM * JOGO * 

ao REM * * 

50 REM * DIREITOS AUTORAIS * 

60 REM * * 

70 REM * NELSON ALVES * 

SO REM * * 

90 REM * * 


100 REM *********************** 

1 10 KEY OFF 
120 DIM S(IO) 

130 K* = "N" 
ião CLS 

150 LOCATE 13,5 

160 PRINT "*** JOGO ***" 

170 PRINT 

ISO PRINT "ESTE JOGO PODE TER ATE 10 JOGADORES." 
190 PRINT "ELE E BASEADO NO JOGO REAL DE DADOS." 
200 PRINT " VGCE PODE JOGAR QUANTAS VEZES QUISER, " 
210 PRINT "D JOGADOR GANHA SE ELE TIRAR UM 7 OU" 
220 PRINT "UM 11 NA PRIMEIRA JOGADA." 

230 PRINT "SE TIRAR UM 2, 3 OU 12 NA PRIMEIRA" 

240 PRINT "JOGADA, ELE PERDE. QUALQUER OUTRO " 

250 PRINT "ND. NA PRIMEIRA JOGADA E O PONTO QUE " 
260 PRINT "ELE DEVE TIRAR NOVAMENTE ANTES DE " 

270 PRINT "TIRAR UM 7." 

280 LOCATE 0,23 
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290 INPUT "PRESSIONE RETURN PARA CONTINUAR " 

300 CLS 

310 LOCATE 0,5 

320 INPUT "LIMITE DE APOSTA DA CASA ";LÍMÍT 
330 PRINT 

340 INPUT "NUMERO DE JOGADORES "iNl 
350 PRINT 

360 INPUT "NUMERO DE JOGADAS ";R1 

370 IF K* = "S" THEN 410 

380 FOR I = 1 TO NI 

390 S(I> = lOO 

400 NEXT I 

410 FOR PART = 1 TO RI 
420 FOR JOG = 1 TO NI 
430 CTR = 0: ULT = O 
440 CTR = CTR + 1 
450 CLS 

460 PRINT "JOGADA... " 5 PART 
470 PRINT "JOGADOR Nü . ";JÜG 

4BG PRINT "ROLOU" i SPC < 1 ) iCTRsSPCÍl) i "VEZ< ES) 

490 IF CTR = 1 THEN 510 

500 PRINT "PONTO TIRADO: " ;ULT 

510 PRINT 

520 GQSUB 1030 

530 IF CTR <) 1 THEN 6SO 

540 LOCATE 0,10 

550 INPUT "VALOR DA APOSTA " ; VPT 

560 IF VPT <= LIMIT THEN 640 

570 PRINT "0 LIMITE DA CASA E Czí ";LIMIT 

580 PRINT: INPUT "PRESSIONE RETURN "5>GS 

590 LOCATE 0,10 

600 FOR I = 1 TO 3 

610 PRINT SPC i 531 

620 NEXT í 

630 GOTO 540 

640 IF AMT í= S(JÜG) THEN 680 
650 LOCATE 0,10 

660 PRINT "VGCE TEM SOMENTE Cs* " íS(JOG) 

670 PRINT: INPUT "PRESSIONE RETURN ";X$ 

680 LOCATE 0,12 

690 PRINT: INPUT "NO. DE MISTURADAS DESEJADO 

700 IF SH < 1 THEN SH = 1 

710 FOR J = 1 TO SH 

720 Dl = 3NT (6*RND í 1 ) ) +1 

730 D2 = INT (6*RND í 1 > ) +1 
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740 NEXT J 

750 DT = Dl +■ 02 

760 GOSUB 1180 

770 IF CTR = 1 THEN S50 

780 IF DT=ULT THEN LOCATE 20,15:RRIMT "VÜCE GANHOU!"! 

CHR*<7) : S ( JÜG) =S ( JÜG) +VPT : GOTO 910 
790 IF DT=7 THEN LOCATE 20 , 1 5 : PR INT "VOCE PERDEU ! ” i 
CHR* < 7 ) :S(JD6)“5<J0G)~VPT!G0Tü 910 
800 LOCATE 0,15 

810 PRINT "TENTE NOVAMENTE, SEU PONTO E ";ULT 
820 LOCflTE 15,20 

830 INPUT "PRESSIONE RETURN " ; X* 

840 GOTO 440 

850 IF DT = 7 OR DT=1 1 THEN LOCflTE 20,15:PRINT "VOCE VENCEU !" 

CHR*<7> :S< JOG)=S ( JOG) WPT:GOTG 910 
860 IF DT=2 OR DT=3 OR DT=12 THEN LOCflTE 20,15: 

PRINT "VOCE PERDEU ! " ; CHR* ( 7 1 : S < JÜG) =S ( JOG) -VPT : GOTO 910 


S70 

ULT = DT 



880 

LOCflTE 15 * 20 



890 

INPUT "PRESSIONE 

RETURN 

" ; 

900 

BOTO 440 



910 

LOCflTE 15,20 



920 

INPUT "PRESSIONE 

RETURN 

" ;X$ 

930 

NEXT JGB 



940 

NEXT PflRT 



950 

CLS 



960 

BÜSUEi 1030 



970 

LOCflTE 0,15 




980 INPUT "JOGAR NOVAMENTE (S/N) "jISt 

990 IF IS* = "N" THEN 1020 

1000 INPUT "MANTER A APOSTA (S/N) ";K* 

1010 GOTO 140 
1020 CLS : END 

1030 PRINT "DINHEIRO RESTANTE: 

1040 PRINT 

1050 FOR I = 1 TO 4 

1060 IF I ) NI THEN 1170 

1070 PRINT "4t " 5 I ; SPC < 1 > í "Cz*" ( S < I > 5 SPC (2) ! CWR* (207) ? 

10S0 NEXT I 

1090 FOR I = 5 TO 8 

1100 IF I > NI THEN 1170 

1110 PRINT ; I ; SPC í 1 ) 1 "CZ*" ;S( I ) ;SPC(2> íCHRí (207) ; 

1120 NEXT I 

1130 FOR 1=9 TO 10 

1140 IF I > NI THEN 1170 
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1150 PRINT I iSPC(l) ; 

1 160 NEXT I 
1170 RETURN 
1180 PRINT 

1190 PRINT Dl ;SPC<1 > 5 
1200 RETURN 


"Cz*" ?S(I ) ; SPC ( 2 ) i CHR* (207 ) ? 
i SPC ( 1 ) ; D2 ; SPC ( 1 ) ; " = “ ; SPC ( 1 ) ; 


DT 
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DESENHO 

O programa DESENHO (DESENHO) permite usar blocos ou asteriscos para 
desenhar qualquer figura ou diagrama que queiramos na tela. Se você primeiro 
desenhar o ktyovt de sua figura ou gráfico no papel, preenchendo alguns pontos 
e deixando outros em branco, pode então duplicá-lo na tela. 

Sua figura pode ter até 20 linhas (para cima e para baixo) e 30 colunas de 
comprimento (através da tela) A linha 150 pergunta se você quer usar blocos ou 
aste ricos para desenhar o seu diagrama; você deve responder com ou B, 

A seguir você precisa dizer ao seu computador MSX que colunas em cada linha 
estão preenchidas, O programa iniciará com a LINHA 1 e a COLUNA 1. Você 
deve digitar a primeira coluna (um número entre 1 e 30 ) na qual você quer um 
bloco. A seguir você é perguntado pela LINHA 1 T POSIÇÃO 2. para a qual você 
digita a segunda coluna onde quer um círculo. Este processo é repetido para a 
LINHA 1 até que você digite 0 (zero) para avançar para a próxima linha, 998 
finaliza o programa, ou 999 para desenhar a figura. 

O desenho atual toma forma nas linhas 31 0 - 550. Você é perguntado na linha 310 
quantas vezes quer desenhar a figura, apagá-la e então redesenhá-la. Se você 
selecionar os blocos, os comandos LOCATE da linha 400 e o comando CHR$ da 
linha 410 colocam os blocos nas linhas e colunas apropriadas. (Veja o seu manual 
do BASIC-MSX para maiores detalhes). Ou se você selecionar asteriscos, im- 
pressões nas colunas são utilizadas, 

Quando o número de repetições que você requisitou for mostrado, você poderá 
desenhar o mesmo diagrama (linha 530), ou pode criar um novo. 


1 O REM 


20 REM tf tf 

30 REM tf DESENHO tf 

4Q REM tf tf 

50 REM tf DIREITOS AUTORAIS tf 

6G REM tf tf 

70 REM tf NELSON ALVES tf 

80 REM tf tf 

90 REM tf tf 


JOO REM tftftftf tf tf tftftf tftftftf tftf tftf tf tf tftftftf 
1 1 0 KEY QFF 
1 20 Dl M X ( 20 f 30 > 
i 30 CLS 
140 RRINT 

150 INPUT "tf ÜU B PARA O BLOCO 11 í Atf 
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160 FOR I = 1 TO 20 

170 FOR J - 1 TO 30 

180 PR INI "LINHA" H i "PQSICAO" ;J 

190 PRINT "ÍO-AVANCA PARA A PRÓXIMA LINHA)* 1 

200 PRINT " (999=DESENHA 0 DIAGRAMA) " 

210 PRINT 11 Í99B=FINAL DO PROGRAMA)" 

220 PRINT " <##— COLUNA DA LINHA EM USÜ>" 

230 INPUT N 

240 Xíl »J)=N 

250 IF N “ Ü THEN 290 

260 IF N “ 999 THEN 300 

270 IF N = 998 THEN 560 

280 NEXT J 

290 NEXT I 

300 CLS 

310 INPUT "NO- DE VEZES " |N2 
320 N3 « 0 
330 CLS 

340 FOR I “ 1 TÜ 20 
350 FOR J = 1 TO 30 
360 IF XU,J> “ 0 THEN 440 
370 IF X(IiJ) = 999 THEN 480 
380 N = Xíi.J) 

390 IF A* O "B" THEN 430 

400 LOCATE N,I 

410 PRINT CHR*Í219); 

420 GOTO 440 

430 PRINT TAB (N) ; ,l tf" 5 

440 NEXT J 

450 IF AS = "B" THEN 470 
460 PRINT 
4 70 NEXT I 

480 IF Pí = " B" THEN 500 
490 PRINT: PRINT: PRINT 
500 N3 =* N3 + 1 
510 IF N3 >= N2 THEN 530 
520 GOTO 330 

530 LOCATE 10,20: INPUT "REPETIR (B/N) " > SN$ 

540 IF SNtf = "S" THEN 300 

550 GOTO 130 

560 PRINT; PRINT: PRINT 

570 CLS: £ND 
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ÉDIÇÂO DE NUMEROS 

O programa de Edição de Números (EDITOR) é um programa bastante simples 
que toma qualquer número digitado (por exemplo 1200050) e edita-o, colocando 
pontos e uma vírgula para a casa dos centavos, e/ou um sinal de menos, se 
necessário. Por exemplo, o resultado do número acima seria 12.000,50, 

O EDITOR é importante no que ele demonstra como você pode obter um 
resultado formatado, usando um BASIC comum que não tem a opção do co 
mando PRINT USING. Com esta sub rotina qualquer programa pode pegar um 
número, assim como NI (linha 130); colocado na variável NUMED (linha (180); 
fornecer uma máscara de edição assim como M$ (linha 190 ); e obter o resultado 
assim pela subrotina GOSUB 230 que realiza a subrotina na linha 230 até o 
comando RETURN ser encontrado 

A subrotina procura da direita para a esquerda através da máscara de edição e 
substitui os dígitos por números da variável NUMED, Zeros á esquerda são 
desprezados, assim como pontos desnecessários, para obter o resultado. 


10 
20 
30 
40 
30 
60 
70 
80 
90 
í 00 
1 10 
120 
130 
I4Q 
i 50 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 


)Jc >f{ íJí Hí íií Hí Hí íjí # ;íc )jí s4í Hí Hí 


REM 

REM * * 

REM * ED ICAG DE NUMEROS * 

R EM W Hí 

REM >!< DIREITOS AUTORAIS & 

REM * * 

REM >K NELSON ALVES * 

REM * * 

REM * * 

REM HífKH<ííí>íí>KíitHoKíK)(í^ítí^^í(<>KíKíK>íoKHí?íí 

KEY OFF 

CLS 

INPUT " NO . A SER EDITADO 11 ; N 1 
IF NI “ INTÍMÍl THEN 170 
RRINT "DEVE SER UM NUMERO INTEIRO ! 11 
GOTO 120 

IF NI "9 THEN 580 
NUMED « NI 

M* - "XX. XXX. XXX, XX-" 

GOSUB 230 
PRINT M* 

GOTO 130 

REM Hofc* SUBROTINA DE ED I CAO mm 

REM *** MASC* ® MASCARA DE EDICAO *>+<* 

REM exemplo: xx . xxx , xxx , xx- mm 
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260 REM *** NUMED = NO. PARA EDITAR (INTEIRO) 

270 N2 - NUMED 

280 NUMED « ABS ( NUMED) 

290 LM - LENÍM*) 

300 NUMED* « STR* (NUMED) 

310 LNUMED = LEN( NUMED*) 

320 CN = LNUMED + 1 

330 FOR CTM - LM TO 1 STEP 

340 CN = CN — 1 

350 IF CN < í THEN 330 

360 IF MI D* CMC* T CTM, 1 > í> ,, - M THEN 440 
370 IF N2 > O THEN 410 

380 MASCS = MID* (MASC*, 1 f CTM-1 ) + H - M 

390 CN = CN + 1 
400 GOTO 430 

410 MASC* - MD*(MASC*, 1 ,CTM-1 > + CHR*í32) 

420 CN = CN + 1 
430 GOTO 540 

440 IF MI D* <M*,CTM, 1 > « % " THEN 470 
450 IF MID*(miCTMfl> = " - 14 THEN 470 
460 GOTO 500 
470 CN — CN +■ 1 

480 IF CTM - 2 THEN CN « CN - 1 
490 GOTO 540 

500 Ml*=MIDiMM*, 1 ,CTM-1 ) -*MID* < NUMED* »CNi I > + 
MIB* (M*,CTM+i t LM- ÍCTM-i >-l> 

510 M* = Ml* 

520 GOTO 540 

530 M*=MID*ÍM* i 1 ,CTM“1 > +CHR*<32> + 

MI D* (M* ? CTM+ 1 * (LM- ÍCTM-1 ) -1 ) ) 

540 REM IMPRIME CTM í MASC* HoKíH 

550 REM PRINT M* , CTM * CN : STOP 
560 NEXT CTM 
570 RETURN 
5S0 CLS! END 
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JOGO DE DADOS 

0 programa logo de Dados (JOGO) permite que até 10 jogadores participem. As 
instruções nas linhas 250 - 390 sumarizam rapidamente as regras do jogo. 

Cada partida do jogo começa na linha 560. As linhas 440 - 510 pedem o nome dos 
jogadores (especificados na Unha 480) a partir da matriz F$, e um loop FOR- 
NE XT (linhas 570 - 1.580 1 dando a vez de cada jogador. Quando todos os jogado- 
res tiverem jogado na primeira partida, o controle será passado da linha 1590 
para a linha 560, onde o número de partidas è incrementado e outro loop 
FÜR-NEXT começará. Este processo continua até um dos jogadores Ler um 
escore igual ao número de pontos selecionados na linha 280. 

Note que após você misturar os dois dados, se escolheu misturar de novo ambos 
os dados em uma tentativa de obter o dobro — e falhou, seu escore será zero para 
esta tentativa. As linhas 600 - 720 T usando a seleção de números aleatórios entre 

1 e 6, obtêm o resultado original da jogada dos dois dados. 

As linhas 840 - 1.020 permitem que você jogue o dado 1 novamente em uma 
tentativa de obter o dobro e a linha 790 analiza se este dado é menor que t ou 
igual, ao outro dado, Se você já tem o dobro, mas decidir jogar nova mente, terá 
uma chance em duas de tirar o mesmo dobro. Você deve simplesmente respon- 
der com N na linha 730 se tiver o dobro. (Lembre-se de que você recebe 10 pontos 
por qualquer dobro cujo ponto total vezes dois é menor do que 10), As linhas 
1,030 - 1.250 fazem o mesmo procedimento para a tentativa feita com o dado 2. 

A única coisa sobre este jogo é que ele não pode ser duplicdo “como está 1 ’ sem 
um computador, Para ter uma chance em duas de tirar o dobro com um dado 
real, você necessitará de três oportunidades para tentar igualar com o outro 
dado: similarmente, para ter uma chance em três, necessitará duas jogadas, 

Com JOGO t entretanto, você tem somente que dizer ao programa que deseja 
jogar novamente o dado 1 ou o dado2 (linha 730), ou responder N para declinar da 
tentativa. Então o programa automaticamente determina se você esta jogando 
o dado maior ou o dado menor e computa o resultado, dando a você os ímpares 
apropriados (linhas 840 e 940 ). Se você jogar novamente o dado menor, a linha 
840 selecionará um número "randòmico” (aleatório) entre 1 e 3. Se o número 1 for 
selecionado, você terá o dobro. A mesma lógica aplica-se para uma chance em 
duas, exceto que você tem o resultado de um número “randômico” entre 1 e 2. 

Seu escore será mostrado nas linhas 1,270 - 1,510. As linhas L33Ü - 1 .340 e 1,360 - 
1.370 dão a você 10 pontos para o dobro que poderia, caso contrário, fazer menos 
de 10 pontos no escore. 

Após cada jogador ter jogado, os totais acumula ti vos dos jogadores serão mos- 
trados antes da próxima jogada ser feita (linhas 1 550 - 1,580). Se, entrentanto, 
qualquer escore exceder o escore do jogo (PT), a linha 1,410 transferirá o co- 
mando do programa para a linha 1.540, onde os escores finais são mostrados. 
Boa sorte! 
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ÍO 

REM 

Wík Hí & x< # >K* # #)k # * x< Hí # % & # >R 

20 

REM 


* 

30 

REM 

# JOGO 

* 

40 

REM 

* 

* 

50 

REM 

# DIREITOS AUTORAIS 

* 

60 

REM 

* 

* 

70 

REM 

* NELSON ALVES 


80 

REM 

* 

>K 

90 

REM 

* 

>K 

iOO 

REM 

d/ vi/ v|/ d/ -Uy vl/ vi/ d/ \1/ vi/ vl/ vl/ 1 i/ U/ vi/ vl/ vi/ vi/ d/ vi/ d/ U/ d/ 

/p qS -rp /p /JV /|V /ppp/p/p/p/p/IVlp./p jp. /p qv /p /p íp Vp 

110 

KEY 

□FF 


120 

CLS 



130 

LOCATE 10,0 


140 

PRINT ">KHOK JOGO 


150 

PRINT 


160 

INPUT "DIGITE UM NUMERO 

" ;x 

170 

DIM 

P (10) 


ISO 

DIM 

P* < 10) 


190 

Dl : 

= INT <RND<1 ) *6>+í 


200 

Dz 

= 1WT(RND(X)*6)+1 


210 

CLS 



220 

INPUT "NO , DE JOGADORES 

c i ( 

230 

IF 1 

IMJ < 1 THEN 220 


240 

1F i 

NJ > 10 THEN 220 



A 10) 


' ;nj 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 


íPJ 


PRINT : INPUT "ESCORE 
IF PJ < 1 THEN 250 

Q C tyl VÍ/ \l/ VÍ/ vi/ VÍ/ vl/ Úf \1/ VÍ/ VÍ/ vl/ 'á/ 'J/ ■d/ vL vl/ Si/ sl/ Slf sl/ Si/ '1/ Vl/ VÍ/ Vl/ U/ Vii- vf/ 
f \ ll *P T 1 * * -TN ^ 'r T 1 /p rp 4r- *7* nft *P 7» f|V /p /p /p /p /JS /p íp /p /p 

CL 8 

"ESTE JOGO PERMITE A CADA" 
"JOGADOR MISTURAR GS DADOS" 

"E ENTÃO TENTAR O DOBRO ~ w 
"SE ELE TIRAR 0 NO - MAIOR" 
"PERDE, ELE TEM UMA CHANCE" 

"EM DUAS DE TIRAR O DOBRO" 

MAS SE ELE TIRAR MENOS" 
"PERDE, EXISTE 1 CHANCE EM" 

"3 DE TIRAR O DOBRO M ! 11 

I a - j r* fui vt/ h\/ si/ vl/ vi/ si/ vl/ *1/ d/ Ui vl/ d/ vi/ \D vl/ vl/ vi/ vi/ vi/ d/ vJ/ vi/ vl/ d/ vl/ U/ \1/ d/ 

PRINT 

"ESCORE J " 

"SEM D DOBRO - TOTAL DOS DADOS 1 
"DOBRO - DUAS VEZES O TOTAL DOS 
"FALHOU O DOBRO - NENHUM ESCORE 1 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


PRINT 

PRINT 

PRINT 

PRINT 


DADOS" 


f* fT M xly hjL*r %|/ d/ xLr \1/ vl/ U/ vl/ vi/ Ui/ VI/ xt/ \3/ Vl/ vV \tf d/ VÍ/ sl/ y/ vl/ 

TA L I P * /p /p /p /p #p rp /fk ifk nn fp fp /fV /p /p /p /p /p /f\ /f\ rp /p -Tp íp /Jl 
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450 PRINT : PRINT 3 INPÜT “PRESSIONE RETURN PARA CONTINUAR " ; X$ 
460 FOR í = 1 TO NJ 
470 CLS 

4SQ PRINT "JOGADOR NO, " ? I ; "NOME I 41 í 
490 INPUT ,M *íPSÍI) 

500 PCI) = 0 
510 NEXT I 
520 PARI = 0 

530 REM FLAGD = 0 SIGNIFICA NENHUMA TENTATIVA DE DGBRG 

340 REM FLAGD “ X SIGNIFICA TENTATIVA COM 0 DADO INFERIOR 

550 REM FLAGD = 2 SIGNIFICA TENTATIVA COM G DADO SUPERIOR 

560 PART = PART +■ 1 

570 FDR I = 1 TO NJ 
58G CLS 

590 PRINT " ^>KHíH<>íc?^^>l<>l<>tíííí>J<í(<H<)í<iíí>fíHt>KJ!<íí<H(íí<?l<iK!íc^>K>K>^>JíH<!ícííí>§cíi<íií)i<)f(" 

600 PRINT “PARTIDA NÜ-" fPART 
610 PR I NT " JOGADOR NO . " f I 5 
620 PRINT SPC ( 1 ) í ” <" ;P*U) ; ") M 
630 PRINT 

640 Dl = INT í6tfRND (X) >+l 
650 D2 * INT (6*RND<X> > + I 
660 IF Dl O O THEN 680 
670 Dl « 1 

680 IF D2 í> O THEN 700 
690 02 « 1 
700 FLAGD = O 

710 PRINT "DADO 1 = " ; D 1; SPC <3 ) í " DAD02 - l ';D2 
720 PRINT 

730 INPUT "JOGAR NOVAMENTE CN/1/2) ";NI2$ 

740 IF NI 2* = " N " THEN 1260 

750 IF NI 2% ~ "1" THEN 7S0 

760 IF N12S a '*2" THEN 1030 
770 GOTO 730 

780 IF Dl <= D2 THEN 810 
790 FLAGD - 2 
OOO GOTO 930 
810 FLAGD = 1 

820 REM H<H<5íotí HotoloKHOKHofí >H>K>F^t>K>íoi<^oítH<>KH<íí<íf£>|í 

830 Dl a INT CRND CX> iK3) -*-1 

840 IF Dl * 1 THEN 900 

850 I F D2 = l THEN 880 

860 Dl = D2 ~ 1 

870 GOTO 890 

880 Dl “ D2 + 1 

890 GOTO 1260 
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900 Dl « D2 
910 GOTO 1260 

920 REM H<H<W^ífcHíHf>!<^^í±í^)K>H^HtH(>Kííí>tí^>iííííHííi<>í<>í<)ií>íí>K 

930 Dl = INT (RND (X) #2 ) +1 

940 IF Dl a 1 THEN 1000 

950 IF D2 “ 1 THEN 980 

960 Dl « D 2 - 1 

970 GOTO 990 

980 Dl = D2 + 1 

990 GOTO 1260 

1000 Dl — D2 

1010 GOTO 1260 

1020 REM >Klk>èc?í<>foK>kJ*í>k>KM<>f<ííCí!í ffííío|E>KH<>t<>íí^oíc?K>KítcHOK 

1030 IF Dl í= 02 THEN 1060 

1040 FLAGD = 2 

1050 GOTO USO 

1060 FLAGD - 1 

1070 REM 

1080 D 2 « INT (RND (X) *3>+l 

1090 IF 02 a i THEN 1150 

1100 IF 01 = 1 THEN 1130 

1110 D2 a Dl - 1 

1 1 20 GOTO 1 1 40 

1130 D2 = Dl + í 

1 1 40 GOTO 1 260 

1 150 D2 a Dl 

1160 GOTO 1260 

1170 REM 

1180 D2 = INT < RND ( X ) #2 ) + 1 
1190 IF D2 = 1 THEN 1250 

1200 IF Dl = 1 THEN 1230 

1210 D2 = D 1 — 1 

1220 GOTO 1240 
1230 D2 = Dl + 1 
1240 GOTO 1260 
1250 D2 - Dl 

1260 IF FLAGD - 1 THEN 1350 
1270 IF FLAGD - 2 THEN 1350 
1280 IF Dl (> D 2 THEN 1330 
1290 T TL “ 2>MD1+D2) 

1300 IF TTL > 9 THEN 1320 

1310 TTL a 10 

1320 GOTO 1410 

1330 TTL a Dl + D2 

1340 GOTO 1410 
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1350 IF Dl <> D2 THEN 1400 
1360 TTL “ 2*( D1+D2) 

1370 IF TTL > 9 THEN 1390 

1380 TTL * 10 

1390 GOTO 1410 

1400 TTL « O 

1410 PCI) = PCI) + TTL 

1420 CLS 

1430 PRINT "DftDOl =" i 01! SPC (3) ; "DRDÜ2 =*';D2 
1440 PRINT " íèt)K>Kilo)( *>k>l<H(* >)<##)(( ****>)( ### >)<>(< " 
1450 IF PU) >= PJ THEN 1540 
1460 PRINT “xm* TOTAIS Hofctfofc " 

1470 FOR J = 1 TD NJ 

1480 PRINT "JOGADOR NO. " í J í SPC í 1 ) ; PS C J ) ; TAB C 23) ; p ( J ) 
1490 NEXT J 
1500 PRINT 

1510 INPUT "PRESSIONE RETURN PARA CONTINUAR ” ;X$ 

1520 NEXT I 
1530 GOTO 560 
1540 CLS 

1550 PRINT ESCORE FINAL «***“ 

1560 FOR J “ 1 TO NJ 

1570 PRINT "JOGADOR NO. " í J ; SPC <1 ) í P$ < J > í TAB < 23 ) ; P < J ) 
1580 NEXT J 
1590 PRINT 

1600 INPUT "JOGAR NOVAHENTE CS/N) » 3 SN$ 

1610 IF SN* “ "S M THEN 210 
1620 CLS! END 
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JOGO DOS NUMEROS 

O programa Jogo dos Números (CHUTE) permite que até 10 jogadores partici- 
pem dele. O comando DIM nas linhas 120 - 150 define cinco matrizes. A variável 
NUM representa o número randômico que cada jogador deve digitar em cada 
partida. As variáveis CHUTE e ALBA$ sâo matrizes bi-dimensionals que man- 
têm o registro de todos os números digitados por cada jogador e determinam se 
íou não) cada número é maior que, ou menor que <> ou <> o número que 
o jogador colocou. A variável BC mantém o registro do escore atual de cada 
jogador. Cada tentativa soma 1 ao escore; o menor escore ganha. Em cada 
partida, a variável GOTIT$ diz ao programa se qualquer jogador ainda não 
digitou algum número. Note que no inicio da próxima partida, a matriz 
GOTIT$ é preenchida com espaços para todos os jogadores nas linhas 45G - 480 
— que, incidentalmente, é também onde o programa determina o número ran- 
dômico NUM para cada jogador na partida. 

Em uma tela é gerada a descrição do programa (linhas 180 -260). As linhas 270 - 
380 ajustam o início das variáveis, e as linhas 90-310 obtém o número de 
jogadores í entre 1 e 10). O maior número disponível que um jogador pode 
escolher <100, 200, 1.000, ou qualquer que seja a escolha) é determinado nas linhas 
320 e 330. Após os escores de todos os jogadores terem sidos colocados em zero, 
as linhas 370 e 380 selecionam o número máximo de tentativas ("chutes”) e o 
número de partidas (ou números que os jogadoes podem chutar). 

O corpo do programa consiste em três íoops FOR-NEXT nas linhas 390 - 860. A 
variável i controla as partidas; J determina se cada jogador está “chutando” 
pela primeira vez T segunda etc.; e K controla qual jogador está jo gan do. Quando 
cada partida começa, o programa coloca a variável NUMGOTIT em zero e 
imprime o número de partidas nas linhas 410 - 440, A seguir o loop interno de J 
nas linhas 490 - 850 inicia com 1 e termina com todos os jogadores tendo 
“chutado" (veja linha 500) ou quando o máximo dado pela variável CHUTES 
tiver sido alcançado por todos os jogadores íveja linha 490). O loop K controla o 
jogador que está chutando (linhas 550 - 840), O jogo é executado mais ou menos 
como segue: 

Partida 1 inicia 

Jogador 1 dá o seu primeiro chute 
Jogador 2 dá o seu primeiro chute 

Desde que o número de jogadores indicados tenha sido somente dois, 
Jogador 1 chuta pela segunda vez 
Jogador 2 chuta pela segunda vez 

E assim por diante... até ambos os jogadores terem chutado ou 
atingido o limite 
Partida 2 inicia 

E assim por diante.,, até o número de partidas solicitado. 

A linha 500 verifica se todos os jogadores chutaram seus números; se positivo, o 
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controle passa para a linha 860 para a próxima partida, Para todas as partidas a 
suhrotina na linha 880 imprime o escore de todos os jogadores. O número da 
partida, número chutado, número do jogador e escore são mostrados a cada vez 
que um jogador chuta um número (linhas 570 - 600 }. As linhas 620 - 640 dão um 
sumário dos chutes anteriores dos jogadores, calculando se cada chute foi ai to 
ou baixo <> ou < \ e mostra estes cálculos entre parênteses, O jogador chuta 
novamente na linha 660, Baseado em se o chute é alto, baixo, ou correto, as 
linhas 790 - 810, 750 - 770 ou 710 - 730 tomam a decisão apropriada. 

No final da partida, o controle retoma para a linha 270, onde você pode começar 
um novo jogo ou terminar o programa digitando 0 quando for perguntado pelo 
número de jogadores. 


lü 

20 

30 

40 

50 

ÓO 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 


*1/ -If v]/ --Lf vj_ r >4/ 1 !i# ■ d/ \t/ U/ \hi 0^ sjj ■ ,±f %U O/ 

fr 'TV íf. fj<v 


* 

* 
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* 

& 

* 
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JOGO DOS NUMEROS 


DIREITOS AUTORAIS 


NELSON ALVES 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
KEY 
DIM 
DIM 
DIM 
DIM 
DIM 
CLS 

LOCATE 
PR INI 
PRINT: 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
I NPUT 
CLS 

LOCATE 0,5 

I NPUT " NUMERO DE JOGADORES 
IF NJ > 10 THEN 270 


'M & )K HC & X< ífc í+c íií # $ W-. >K # # >K >K W. 

□FF 

NUM < 10) 

CHUTE (10,100) 

ALBA* (10,100) 

SCUO) 

GOT I T$ ( ÍO> 


8,5 

"*HOK JOGO DOS NUMEROS m*" 

PRINT: PRINT 

"ESTE JOGG PERMITE QUE QUALQUER NUMERO 
"DE JOGADORES DE 1 A 10 CHUTEM UM NO- 
"CADA CHUTE ADICIONA 1 AO ESCORE." 
"ASSIM, O MENOR ESCORE GANHARA." 

"PRESSIONE RETURN PARA CONTINUAR " ; X* 


<0 “ FIM) 


1 INJ 


Éi 

II 
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310 IF NJ < 1 THEN 950 

320 PRINT; INPUT '‘CHUTE UM NO. DE 1 A " ;CHU 

330 IF CHU < 1 THEN 950 

340 FOR I =1 TO NJ 

350 SCU) = O 

360 NEXT I 

370 PRINT: INPUT "NO. MÁXIMO DE TENTATIVAS ";CHUTES 

3S0 PRINT: INPUT "NO. DE PARTIDAS "íPARTS 

390 FOR 1=1 TO PfiRTSS 

400 RD = I 

410 NUMGOTIT = O 

420 CLS: LOCATE 0,5 

430 PRINT "PARTIDA NÜ.";RD 

440 PRINT: INPUT "PRESSIONE RETURN PARA CONTINUAR ";X$ 

450 FOR J =1 TO NJ 
460 GOTITííJ) = CHR$(32> 

470 NUM(J) = INT CCHU#RND<1 > ) +1 
480 NEXT J 

490 FOR J = 1 TO CHUTES 

500 IF NUMGOTIT = NJ THEN 860 

510 CLS : LOCATE 0,5 

520 GQSUB 830 

530 FOR K = 1 TO NJ 

540 IF GOT I Tí <K> = "5" THEN 840 

550 CLS 

560 LOCATE 0.5 

570 RR INT "JOGADOR NO . " ? K ; " (PARTIDA" ; RD ; " , TENTAT I VA" i J í " ) " 
580 PRINT 

590 PRINT "ESCORE" ;SC(K) 

600 PRINT 

610 IF J M THEN 650 
620 FOR L = 1 TO J-l 

630 PRINT CHUTE < K , L ) í " ( " ? ALBA$ ( K , L ) i " ) " I 
640 NEXT L 
650 PRINT 

660 PRINT: INPUT "QUAL A SUA TENTATIVA " ;G 

670 CHUTE (K,J) = G 

680 IF G = NUM <K) THEN 710 

690 IF G í NUM (K) THEN 750 

700 IF G > NUM (K ) THEN 790 

710 PRINT: PRINT "CORRETO ! ! " ; CHR# í 7) ; "ELE E";G 
720 GOT I Ti < K ) = "S" 

730 NUMG0T1 T = NUMGOTI T + I 
740 GOTO 820 

750 PRINT: PRINT "ERRADO í G ?"E ( QUE O SEU NUMERO" 
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760 SC <K ) « SC í K) +■ 1 
770 J> =■' 11 <" 

780 GOTO 820 

790 PR INI = PRINT "ERRADO , " 5 G 5 "E > QUE O SEU NUMERO" 
800 SC < K ) = SC ( K ) + 1 

810 ALBA* ÍK, J> “ "> M 
820 PRINT 

830 INPUT "PRESSIONE RETURN PARA CONTINUAR " í X* 

840 NEXT K 
050 NEXT J 
860 NEXT £ 

870 GOTO 270 
880 PRINT 

890 FDR P = 1 TG NJ 

900 PRINT " JÜGADÜR NO- “5P? 41 SEU ESCGRE E 11 5 SC < P ) 

910 NEXT P 
920 PRINT 

930 INPUT "PRESSIONE ENTER PARA CONTINUAR " ; X* 

940 RETURN 
950 CLS 
960 END 


_ 
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ROLETA RUSSA 

O programa Roleta Russa (ROLETA) permite que até 20 jogadores (ou vitimas) 
joguem. O objetivo, como você já deve saber, ê ser o último a ter a cabeça 
estourada por uma bala. 

As linhas 120 - 130 mantêm em uma matriz o registro das vítimas vivas ou 
mortas e limpa a tela. A seguir o comando GO SUB 490 desenha os seis cilindros 
da arma. Um “CT (zero) representa a bala no sexto cilindro, enquanto o "O" (a 
letra O) representa os cilindros vazios. 

As linhas 170 - 190 acertam o número de jogadores. Se você responder com 0, o 
programa pula para a linha 500 e termina; c aso contrário, a linha 200 coloca em 0 
o valor de todos os jo gadores na matriz PL, indicando que eles ainda estão vivos. 
O número de partidas é colocado em zero pela linha 140 e incrementado de 1 na 
linha 210. As linhas 220 *480 então permitem que cada jogador rode o cilindro da 
arma qualquer número de vezes antes de atirar. As linhas 230 - 250 verificam se 
todos jã estão mortos, neste caso as linhas 260 - 280 transferem o controle de 
volta para a linha 130 para outro jogo. 

Se um jogador já foi morto, a linha 290 salta para o próximo jogador. As linhas 
300 - 350 então limpam a tela; redesenham o cilindro da arma; mostram o 
número do jogo e jogador na linha 13, coluna 0; e pergunta quantas vezes o 
jogador quer rodar o cilindro. O número de voltas que o jogador escolhe deter- 
mina o número de vezes que o programa r andomíc amente selecionará os núme- 
ros de U a 6 i. O último número randômico selecionado representa o cilindro que 
será disparado. Se o cilindro for o primeiro, segundo, terceiro, quarto ou quinto, 
a arma disparará um CLICK... (SORTUDO); mas se o sexto cilindro for selecio- 
nado. a arma disparará a bala e explodirá (linhas 400 - 420). A linha 430 então 
marcará o jogador atual como morto, 

O jogo continua até que um jogador somente permaneça vivo ou todos estejam 
mortos. Pressione CTRL C para terminar o programa, como todos os outros, a 
qualquer hora. 


10 

REM 


20 

REM 

* 




30 

REM 

* 

ROLETA 

RUSSA 

* 

40 

REM 




* 

50 

REM 

* 

DIREI TOS 

AUTORAIS 


60 

REM 




* 

70 

REM 

* 

NELSON 

ALVES 

* 

80 

REM 




>K 

90 

REM 

* 




ÍOÜ REM 

>K # * >K Ho*»K * >K HOfc >K >K # * *>K #>K # >K & 
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1 1 0 KEY OFF 
120 DIM PLÍ20) 

130 CLS 
10.0 PART = 0 
150 GGSUB 510 
160 LOCATE 0,11 

170 INPUT “NO. DE JOGADORES (VITIMAS) "?W1 
180 IF NI = O THEN 500 
190 IF NI > 20 THEN 130 

200 FOR I = 1 TO Nl! PL ( I ) = O: NEXT I 

210 PART = PART + 1 

220 FGR I = 1 TO Nl 

230 FOR J = 1 TC) Nl 

200 IF PL ( J) = 0 THEN 290 

250 NEXT J 

260 PRINT “TODOS ESTÃO MORTOS ! 1 ! 11 

270 PR I NT : INPUT "PRESSIONE RETURN PARA CONTINUAR 

280 GOTO 130 

290 IF PL ( I ) = 1 THEN 480 

300 CLS 

310 GOSUB 510 

320 LOCATE 0,13 

330 PRINT "PARTIDA " ; PART 

340 PRINT: PRINT "JOGADOR Nü . " ; I 

350 PRINT: INPUT "NO. DE VOLTAS DO TAMBOR "?S 

360 FOR K = 1 TO S+l 

370 X = INT(6*RND(1) ) +1 

380 NEXT K 

390 PRINT: PRINT "TAMBOR NO." (X 
400 IF X <> 6 THEN 460 

410 PRINT: PRINT “BANG ! ! !"?CHRiM7> 

420 FOR L = 1 TO 4: PRINT CHRÍ(7M: NEXT L 
430 PL < I ) = 1 

440 PRINT: INPUT "PRESSIONE RETURN PARA CONTINUAR 

450 GOTO 480 

460 PRINT: PRINT "CLICK... (SORTUDO)" 

470 PRINT: INPUT "PRESSIONE RETURN PARA CONTINUAR 

480 NEXT I 

490 GOTO 210 

500 CLS: END 

510 CLS 

520 LOCATE 17, 3: PRINT "O" 

530 LOCATE 19, 4: PRINT "0" 

540 LOCATE 19,6:PRINT "0" 

550 LOCATE 17,7:pRINT "O" 


II 


?x* 


M \ xs 

■' 5X* 
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5 60 

LOCATE 

15,6: PRINT 

”0" 



570 

LOCATE 

15, 4: PRINT 

“0 11 



580 

LOCATE 

0,9: PRINT * 

'CILINDRO 

6 

(E 0) TEM UMA BALA" 

590 

LOCATE 

5,0: PRINT 

y 

□ 

r 

m 

T 

A RUSSA" 

600 

RETURN 
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MENSAGEM DE TELA 

O programa Mensagem de Tela (TELA) permite que você escreva mensagens na 
tela de forma muito fácil Duas variações estão disponíveis; para repetir uma 
linha qualquer número de vezes ou repetir cinco tinhas também qualquer nú- 
mero de vezes (Veja a linha 140 >. Por exemplo, se você tiver que sair de casa às 
16:45, e quiser deixar uma mensagem para uma pessoa de sua família que 
chegará ãs 17:00, pode usar o programa TELA para criar uma mensagem que 
preenche e limpa a tela pe rio dicamente. 

Se você selecionar a opção uma linha, a tela será preenchida com aquela Unha, 
um caracter por vez e então apagada a linha um caracter por vez também, da 
direita para a esquerda e debaixo para cima. 

As linhas 180 - 390 geram a variação de uma linha; as linhas 430 - 980, a versão de 
cinco linhas. O comando PRINT MID$ move os caracteres, um por vez, da série 
de caracteres que você digitou, como sendo a mensagem a ser mostrada. 


IO 

REM 


20 

REM 

* 



Ht 

30 

REM 

* 

MENSAGEM 

DE TELO 

* 

40 

REM 

* 



* 

50 

REM 


DIREITOS 

AUTORAIS 

>K 

6Ü 

REM 

rtt 



* 

70 

REM 

* 

NELSON 

ALVES 


80 

REM 

>K 



* 

90 

REM 

* 





100 REM #*#*#*########**###*### 
110 KEY GFF 


120 CLS 
130 PRINT 


140 

I NPUT 

"REPETE 1 LINHA 

150 

IF Rí 

= "1" 

THEN 

180 

160 

IF Rí 

■> ^ " 

THEN 

430 

170 

GOTO 

140 



130 

PRINT 

: I NPUT 

"MSG 

" * A$ 

190 

X = LEN (Aí) 




20 1 IF X > 38 THEN 180 


210 

PRINT : I NPUT ' 

■NG* DE LINHAS 

220 

PRINT: INPUT 

11 NO. DE TELAS 

230 

FOR K = 1 

TO 

S 

240 

CLS 



250 

FOR J = 1 

TO 

REPS 

260 

FOR I = 1 

TO 

X 


( 1 / 5 ) " 


’’ ;REPS 
" iS 


;RÍ 
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270 LI N = j: CÜL = I 
280 LOCftTE COL,LIN 
290 PRINT MIDÍ(Oí,I,l) 

300 NEXT I 
310 NEXT J 

320 FOR J = REPS TO 1 STEP -1 
330 FOR I = X TO 1 STEP -1 
340 L IN = J : COL = I 
350 LOCOTE COL , L í N 
360 PRINT CHRí(32>; 

370 NEXT I 
380 NEXT J 
390 NEXT K 

400 PRINT í INFUT "MO IS (S/N) "íSN* 

410 IF SN* = "S" THEN 120 
420 GOTO 1000 

430 PRINT! INPUT "MSGO ";AÍ 
440 XO = LEN(Oí) 

450 IF XO > 38 THEN 430 
460 PRINT! INPUT "MSGB " ; Bí 
470 XB = LEN(BÍ) 

480 IF XB > 38 THEN 460 

490 PRINT ! I NPUT "MSGC " ; Cí 
500 XC = LEN (Cí ) 

510 IF XC ) 38 THEN 490 

520 PRINT: INPUT "MSGD ";Bí 
530 XD = LEN (D*) 

540 IF XD > 38 THEN 520 
550 PRINT: INPUT “MSGE " }EÍ 
560 XE = LEN(EÍ) 

570 IF XE > 38 THEN 550 

580 PRINT: INPUT "CONTINUAR (S/N) " ; SN2Í 

590 IF SN2Í (> "S" THEN 120 

600 PRINT: INPUT "OTROSO (0--2000) " ; DL 

610 PRINT: INPUT "NO. DE REPETIÇÕES " }R2 

620 FOR K = 1 TO R2 

630 CLS 

640 IF XO < 1 THEN 690 
650 FOR I = i TO XO 
660 L IN = 2: COL = I 

670 LOCOTE COL,LIN: PRINT MI D* (O* , I , 1 > i 
680 NEXT I 

690 IF XB < 1 THEN 740 
700 FOR I = 1 TO XB 
710 L IN = 3: COL = 


I 
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720 LGCfiTE CGL,LIN! PRINT MI D$ (B* , I , 1 ) ? 
730 NEXT I 

740 IF XO < 1 THEN 790 
750 FOR 1=1 TO XC 
760 L IN = 4: COL = I 

770 LOCATE CGL,LINi PRINT MID* <C* , I , i > i 
780 NEXT I 

790 IF XD < 1 THEN 840 
800 FOR 1=1 TO XD 
810 l. IN = 5: GOL = I 

820 LOCO TE COL, L IN: PRINT MID* (D*, I , 1 ) ! 
830 NEXT I 

Q40 IF XE < 1 THEN 890 

850 FOR I =1 TO XE 
860 L IN = 6! COL = I 

870 LQCftTE C0L,L1N: PRINT M I D$ ( ,1,1), 

SSO NEXT I 

890 FOR I = 7 TO 10 

900 FOR J = 1 TO 38 

910 L IN = I i COL = J 

920 LOCO TE COL,LINi PRINT ; 

930 NEXT J 
940 NEXT I 
950 PRINT 

960 IF DL < 1 THEN 980 

970 FOR I = 1 Tü DL: NEXT I 

980 NEXT K 

990 GOTO 400 

1000 CLS: END 


Capítulo 3 

PROGRAMAS EDUCACIONAIS E PESSOAIS 


MAQUINA DE CALCULAR 


O programa Máquina de Calcular (MÁQUINA) simula uma máquina de calcu- 
lar, mas só que ele é muito melhor. Quando você digita os números a serem 
somados ou subtraídos, são armazenados na memória na mesma ordem na 
qual você os digitou. Você pode revê-los —junto com o total que está acumulado 
até este ponto — a qualquer hora e mudar ou eliminar qualquer entrada errô- 
nea, Deste modo, a memória do computador tem o mesmo propósito que o papel 
de uma máquina de somar, entretanto, você tem que subtrair e depois somar de 
novo para arrumar um valor digitado erroneamente. Com o programa MÁ- 
QUINA. você pode ter uma nova lista de números que foram digitados tão logo 
você tenha feito as correções. 

Este programa não precisa de uma impressora, já q ue até 40 números podem ser 
facilmente mostrados na tela. Quando todas as entradas são chamadas, elas 
são mostradas em duas colunas. Por exemplo, se 2 0 números foram digitados, 10 
são mostrados em cada lado da tela, com os números rotulados de 1 a 10 na 
metade esquerda da tela e os rotulados de 11 a 20 na metade direita. Para 
corrigir o item 13, responda S para a pergunta “IMPRIMIR DETALHES", A 
seguir você responde 13 ao prompf que pergunta pelo número que você quer 
corrigir e digita a adição ou subtração desejada para repor a entrada incorreta. 

As linhas 200 - 340 indicam os comandos que você pode usar. Digitando INS- 
TRUÇÕES as instruções são mostradas novamente. As instruções são exibidas 
automaticamente na tela no início do programa, 

A linha 190 usa o comando CLS para limpar a tela. 

Toda vez que o cursor é colocado na segunda posição sem um prornpt anterior, 
você pode fazer uma nova entrada digitando um número com ou sem o ponto 
decimal e finalizar número com um + ou ou um A ou S, Um A {para adição) e 
um S (para subtração) podem ser usados para facilitar a entrada de uma adição 
ou subtração, isto é, as letras são mais fáceis de serem achadas pelo usuário. 
Com este método, você pode digitar um número após o outro até visualizar um 
subtotal (S) ou um total (T). A diferença entre os dois é que o T automatica- 
mente limpa a memória e os totais acumulados, enquanto S mostra o total até 
aquele ponto, permitindo que você continue inserindo números após ver o 
subtotal, tão bem quanto fazer as correções necessárias. 

Os comandos LIGAR e DESLIGAR (impressora) servem para você utilizar ou 
não a impessora ao invés da tela. Você pode ligar ou desligar a impressora em 
qualquer ponto do programa. Como mencionado anteriormente, entretanto, 
você pode usar este programa sem ter uma impressora e desta forma economi- 
zar papel. 

Outra característica deste programa permite que você tenha resultados inter- 
mediários que não interferem com o que está armazenado na memória. Pode-se 
fazer isto digitando-se um número seguido por uma / (para divisão) ou um X 
(para multiplicação) e depois digitando-se RETURN, A seguir, digitando o 
número a ser multiplicado ou dividido, seguido por um sinal de igual, e digi- 
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tancio RETURN, você terá a resposta. Por exemplo, se você primeiro digitar 10X 
e um RETURN, então 10 - e um RETURN terão a resposta 10. Você pode somar 
ou subtrair 100 digitando 100+ ou 100- e digitando RETURN. 

Você pode adicionar ou subtrair o mesmo número repetitivamente sem 
redigi tã-lo. Apenas insira-o uma vez para ser somado ou subtraído e digite 
RETURN para cada cálculo. Por exemplo, digitando 20- e a seguir RETURN 
RETURN RETURN RETURN RETURN RETURN. você está subtraindo 20 
seis vezes As linhs 520 - 570 ligam a impressora (se um for usado) ou desligam 
quando você digitar LIGAR ou DESLIGAR, Quando a impressora for ligada, 
um sinalizador será colocado em S (YN$ na linha 510) ou N (linha 550). O 
programa sempre será alertado para exibir os dados na impressora ou na tela. 

As linhas 620 - 730 avaliam o operador aritmético digitado como o último 
caracter de um número. Se o caracter não for um A, /, X-, S, + ou o operador 
será considerado inválido e uma mensagem de erro será mostrada (linha 730). 

As linhas 750 - 780 avaliam o número digitado antes de um X ou uma / de modo 
que as linhas 790 e 820 ou 840 provoquem exibição imediata do resultado da 
divisão na tela e/ou impressora. Do mesmo modo. um produto intermediário de 
uma multiplicação é impresso nas linhas 860 e 880. 

As linhas 900 - 980 acumulam o número digitado em um total, tanto adição como 
subtração, dependendo do operador final í + , A, ou S). A entrada é salva na 
matriz de memória E$ (linha 1.000). Note que se umS ou um A foi digitado, um - 
ou um + substituirá o operador digitado na memória. 

O subtotal ou total é impresso nas linhas 1030 - 1.690. O número de entradas 
contidas na memória <CTR1 na linha 1.230) é dividido por dois para determinar 
quantas linhas de duas colunas devem ser mostradas ou impressas. 

Como previa mente mencionado, cada item é claramente numerado de modo 
que qualquer entrada possa ser facilmente localizada e modificada. As linhas 
1.700 - 2.020 permitem que você efetue mudanças ou apague as entradas. Para 
substituir uma entrada por uma correção, você precisa somente digitar um 
novo número após responder à questão de modificação do detalhe na linha 
1.720. A entrada antiga é então ou subtraída do total (se foi uma adição) ou 
adicionada ao total (se foi uma subtração). O número digitado em substituição é 
armazenado na mesma localização na matriz de memória. 

As linhas 2.030 - 2.050 limpam o acumulador TOTAL e colocam o ponteiro da 
matriz de memória de volta em zero. 
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10 REM **************^*&>k***** 

20 REM * MAQUINA DE CA LCULAR * 

30 REM * * 

40 REM * DIREITOS AUTORAIS * 

50 REM * * 

èO REM * NELSON ALVES * 

70 REM * sK 

80 REM Hí>i<>K^>K^>i<>íí>íc>K>KHí^iKH<H<>(<^^iK>lt)í<H< 

90 REM * m 

100 REM * SÜMA , SUBTRAI E * 

110 REM * MANTEM REGISTRO DE * 

120 REM * AUDITORIA * 

130 REM * * 

140 REM í+c H<>t< 3+c ^ >tí H< H< Hoií »< >N ^ >Éc >tí>K 
150 REM 

160 D 1 M E*(2QQ> 

170 CTR1 = 0 
180 TTL « 0 
190 CL3 

200 PR I NT " ^^^^K*******#^********************'* 
210 PR I NT " * w 

220 PRINT"* INSTRUÇÕES PARA UTILIZACAQ *" 

230 PRINT"* *" 

240 PRINT"* #/ OU #X DIVISÃO GU MULTIPL I CACAÜ *" 
250 PRINT"* #= PARA ÜBTER 0 RESULTADO * 11 

260 PRINT"* S PARA ÜBTER Ü SUBTOTAL *“ 

270 PR I NT " St T p/ ÜBTER TOTAL ( L I MPA MEMÜRIA) *" 

280 PR I NT " * PARA SOMAR/SUBTRAIR USE +,-,A,S *" 

290 PRINT"* LIGAR LIGA A IMPRESSORA *“ 

300 PRINT"* DESLIGAR DESLIGA A IMPRESSORA *" 

310 PRINT"* FIM TERMINA D PROGRAMA *" 

320 PRINT"* síí»< 

330 FR I NT 11 * *" 

340 PR INI” ********************>f{***>|{i£>fcí|t>[c)|<íf<>j{){t)|<>jÉ}jí}({)jjç 11 
350 PRINT 
360 PRINT 
370 PRINT 
380 PRINT 

390 PRINT" PRESSIONE A LETRA C PARA CONTINUAR " 
400 IF INKEY* = "C" THEN GOTO 410 ELSE GOTO 400 
410 CLS 

420 lNPUT""iA* 


430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

5B0 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 
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IF A* = "INSTRUÇÕES" THEN ISO 
I F AT - "FIM" THEN 2060 
IF fi$ = "S" THEN 1020 
IF A* = " T " THEN 1020 
IF A* “ "LIGAR" THEN 500 
IF AS = "DESLIGAR" THEN 540 
GOTO 580 

IF SN* « "S M THEN 530 
SN* = "S" 

REM ***** IMPRESSORA LIGADA ***** 
GOTO 420 

IF SM* = " N " THEN 570 
SN* = "N" 

REM **** IMPRESSORA DESLIGADA **** 
GOTO 420 


LA = LENÍA*) 

IF LA > 0 THEN 620 
AS * E* (CTRi ) 

LA = LEN < A*) 

□PER* = MID*íA*,LA,l) 


IF 

OPER* 

= 

"A 11 

THEN 

690 

IF 

□PER* 

=3 

ii f i* 

THEN 

750 

IF 

□PER* 

= 

"X" 

THEN 

750 

IF 

OPER* 


II ss 

THEN 

790 

IF 

□PER* 

= 

"S" 

THEN 

710 


GOTO 720 
GPER* = " + " 

GOTG 720 
□PER* = "™" 

IF OPER* = ,r + " OR OPER* = THEN 900 

PRINT "ERRO - ULTIMO CARACTERE DEVE SER A , S , + , - " 

GOTO 420 

NUM* = MID*íAS t i f LA-U 
NA a VAL < NUM* ) 

GA* = OPER* 

GOTO 420 

NUM* - MI D* ( A* , 1 , LA“ 1 > 

NB - VAL (NUM*) 

IF OA* * "X" THEN 860 

PRINT NA/NB 

IF SN* (> "S" THEN B50 

LPRINT NA/ NB 

GOTO 420 

PRINT NA*NB 

IF SN* <> "S" THEN 420 
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SSO LPRINT Nfl*NB 
890 GOTO 420 

900 NUM* = MID$ <A* , 1 ) 

910 NI = VflLCNUmO 

920 NI = C I NT í N 1 Hr 1 00+ . 5 ) ) / 1 00 

930 IF OPER* = " + " THEN 960 

940 TTL = TTL-N1 

950 GOTO 970 

960 TTL = TTL+Ní 

970 CTR1 = CTftl + 1 

900 TTL « í INT <TTL#ÍOO+-5> ) /100 

990 NXS - STRS (Ni) 

1000 ES(CTRI) - MXS+ÜPERS 
1010 GOTO 420 

1020 IF SNS <> »S M THEN 1100 
1030 IF AS = "S" THEN 1070 
1040 LPRINT 11 TOTAL = « ; 

1050 LPRINT TTL 

1060 GOTO 1160 

1070 LPRINT "SUBTOTAL a 

10S0 LPRINT TTL 

1090 GOTO 1160 

1100 IF AS = "S 11 THEN 1140 

1110 PR INT "TOTAL = " Ç 

1120 PR INT TTL 

1130 GOTO 1160 

1140 PRINT "SUBTOTAL = 11 ? 

1130 PRINT TTL 

1160 INPUT "IMPRIMIR DETALHES M í ISNS 

1170 IF AS - "S" THEN 1190 

1180 IF AS = " T #l THEN 1210 

1190 IF ISNS O "S" THEN 420 

1200 GOTO 1220 

1210 IF ISNS <> "S" THEN 2030 

1220 02 ” O 

1230 CA = CTR1/2 

1240 IF CA = INT (CA) THEN 1260 

1230 CA - INT (CA) + 1 

1260 FOR I a i TO CA 

1270 IS = STRS(I) 

1280 LI — LEN(IS) 

1290 IF CTR 1 « O THEN 420 
1300 I2S = 

1310 IF SNS <> "S" THEN 1510 

1320 LPRINT I2S ; SPC(5-LI); ES U ) i 
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1 330 LPR I NT SPC ( 1 5-LEN (ES ( I ) ) ) ; 

1340 IX - I+CA 

1350 IF IX > CTR 1 THEN 1400 

1360 IXS - STRSÍIX) 

1370 LX - LEN(IXS) 

1 300 I2S = IXS+" a" 

1390 LPRINT I2S; SPC<5-LXM ES (IX) ? 

1400 LPRINT 
1410 NEXT I 
1420 LPRINT 

1430 IF AS a "S" THEN 1470 
1440 LPRINT "TOTAL “ "5 
1450 LPRINT TTL 
1460 GOTO 1490 
1470 LPRINT " SUBTOTAL * ; 

1400 LPRINT TTL 

1 490 LPRINT M >{í^^Ht>ííii<ít<Hí>l<íl<Hc>|<íiíítí>i<Hí>Íí^ii<>í<H<H<HíMííit>í<H<>KíK>tí>^>i<íKí{<iíí>K)íí>K" 
1500 GOTO 1690 

1510 PRINT I 2S ; QPC(5-LI)« ES < I ) ; 

1520 PRINT SPC í X 5-LEN < ES <I) ) ) ; 

1530 IX * I+CA 

1540 IF IX > CTR 1 THEN 1590 

1550 IXS = STRS(IX) 

1560 LX = LEN(IXS) 

1570 I2S = IXS + *' 

1580 PRINT I2S? SPC<5-LX)S ESUX>Ç 
1590 PRINT 
1600 NEXT I 
1610 PRINT 

1620 IF AS « "S M THEN 1660 
1630 PRINT "TOTAL = "í 
1640 PRINT TTL 
1650 GOTO 16S0 
1660 PRINT "SUBTOTAL « " * 

1670 PRINT TTL 

1 680 PRI NT")|t>(íJKSí!KHí5ití|c>K>K>t<Hoíott3KíKíKíioK>KH<í<í>KíKí|<^>KHolo^>í<íK?(<H<>|í>ít>K>it Jl 

1690 í F AS = 11 T " THEN 2030 

1700 INPUT "MUDA DETALHE *’ íDSNS 

1710 IF DSNS O "S M THEN 420 

1720 INPUT "DETALHE #= " í DN 

1730 IF DN > CTR1 THEN 1700 

1740 INPUT " NOVO VALOR s ";AS 

1750 LA = LEN(AS) 

1760 IF LA a O THEN 1740 
1770 ORERS - MJDS (AS, LA, 1 > 
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1760 IF ÜRERfc “ "fl" THEN 1810 

1790 IF GPER$ » "S" THEN 1830 

1800 GOTO 1840 
1810 OPER$ “ 11 + ’* 

1820 GOTO 1840 
1830 ÜPER$ - ,, “ u 

1840 IF DPER$ “ 1, + M OP GPERS s THEN 1870 

1850 PR INI 11 ERRO - ULTIMO CARACTERE DEVE SER A,B, + , 

1860 GOTO 1740 

1870 NUt1$ = MID$ í A$, 1 ,LA-1 > 

1 880 N 1 » VAL < NUM* ) 

1890 LE “ LEN(E*ÍDN>) 

1900 ÜES " MIDS ÍESÍDN) ,LE, 1 ) 

1910 NE$ " MID* (£* <DN> , 1 ,LE-1 > 

1920 NE “ VALÍ NE*) 

1930 IF ÜE* = » + H THEN 1960 

1940 TTL = TLL+NE 

1950 GOTD 1970 

1960 TTL - TTL -NE 

1970 IF OPERS = «+ M THEN 2000 

1980 TTL = TTL-Nl 

1990 GOTO 2010 

2000 TTL. - TTL+N1 

2010 E$ (DN ) = NUMS+GPER* 

2020 GOTO 1700 
2030 CTR1 = O 
2040 TTL = O 
2050 GOTO 420 
2060 CLS; END 
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SUBTOTAL = 127 

1 . 12 + 

2 . 14 + 

3 - 25- 

4 - 152+ 


5. 25- 

6 # 1 23 + 

7. 124- 


SUBTOTAL * 127 

W H< Hí )*£ & -M * W >K H< >H H< * >k M >K & >fc >K HC # # H< >K H< >Í<>K ík >K # W< >H >i< tfí 
SUBTOTAL * 147 

1- 32+ 5 - 25- 

2. 14+ 6. 123+ 

3 - 25- 7 * 124- 

4 . 1 52+ 


SUBTOTAL a 147 

sir \J / 'd/ -Hly- \L- d/ OU U/ U/ dy dy U/ Uj» U/ -U/ *1/ *!/ hj> «Jy- -kJ^- kh> -kJ^ xJ/- U/ -Jy kly \J/ \í/ il/ il/ 

rip- ry, rjs fT' /çv jT- *!'■ ■n* *V- “ *¥> T- nft n& rr* «n^ #|V ff*. /p. ífS rj\ rT-- rlfr rf\ /|^ yyt 

TOTAL = 147 

1 * 32+ 5 • 25- 

25 14+ 6 • 1 23+ 

3- 25- 7 - 124- 

4- 152+ 

TOTAL - 147 


Figura 4* Programa Máquina de Calcular; 
exemplo de saída do programa. 
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adiçao/subtraçao 

O programa Adiçâo/Sub tração (ADISUB) foi desenvolvido para melhorar a 
performance na adição e subtração. 

O programa desenha um quadro no meio cia tela (se desejado) na linha 150 ), 
Respondendo com qualquer número de 2 a 999 nas linhas 160 a 100, o usuário 
pode facilmente selecionar as faixas superior e inferior a serem somadas ou 
subtraídas. 

Os totais das respostas corretas e incorretas encontram-se nas linhas 220 e 230. 
Você pode escolher adição somente, subtração somente, ou uma mistura dos 
dois — selecionando randomic amente. 

A rotina das linhas 300 - 430 desenham o quadro em torno do problema íse você 
digitar S na linha 150 ). Um pequeno caracter é utilizado CHR$íl89) e repetido 
para desenhar o quadro. 

O traço (sublinha) é usado para desenhar a barra abaixo da conta, assim como 
você faz no papel, O processo de seleção randômica feito para o primeiro e 
segundo números é feito nas linhas 440 e 450. Se você quer um numero randò- 
mico entre 1 e 50, por exemplo, use o comando 

10 NI = INT(5Ü*RND(1))+1 

Neste programa, o comando INPUT da linha 140 dã um valor para a variável X. 
Qualquer número positivo como gerador causa a seleção do número randômieo. 

Para evitar respostas negativas, o vaior N é dado para NEG$ na linha 120. 

Para mostrar a conta no meio da tela,os dois números são convertidos para 
séries de caracteres ( strings ) em Nl$ e N2$. As linhas 650 e 660 determinam o 
comprimento destes dois itens alfanuméricos (outra palavra para série de ca- 
racteres ). Os caracteres, primeiro e segundo números, são então colocados 
dentro, um dígito por vez, da vigésima posição da tela. da direita para a es- 
querda. Esta movimentação é realizada por doi síoops FOR-NEXT que têm urn 
passo negativo (isto é, decre mentam do comprimento da série de caracteres até 
1), Ao mesmo tempo, os comandos LOCATE nas linhas 700 e 760 causam a 
movimentação de cada dígito para a vigésima posição da ela, à seguir a 
dêcima-nona e assim por diante nas linhas 9 e 8, 

As linhas 670 a 830 são similares ãs linhas 300 - 430 posições em que os dígitos dos 
números NI e N2 são determinados pelas linhas 700 e 760. As linhas 790 - 840 
desenham o operador + ou - e sublinham a conta. 

Após a conta ser mostrada, você será solicitado a digitar uma resposta. Se a 
resposta que você der for correta, o programa vai para outra conta; se sua 
resposta estiver incorreta, a resposta correta é apresentada. Você deve pressio- 
nar RETURN para continuar. 
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Paia Lerminbar o programa, digite 999Ô9 como resposta para a conta. Um 
resumo das suas respostas corretas e incorretas será então mostrado. 


lü 

REM 

vkr iJtf íl# vl/ vi/ f k±r vb* dj l L' ' I / *1/ \1/ 

ir- t' rp- f|\ fp. /p. /p. «qrv /f\ rr> 

20 

REM 

* 


* 

30 

REM 

* 

ADICAO/SUBTRACAÜ 

Xí 

40 

REM 

>R 


* 

50 

REM 


DIREITOS AUTORAIS 

* 

60 

REM 

* 


Xí 

70 

REM 

* 

NELSON ALVES 

* 

80 

REM 

X< 


Xí 

90 

REM 

* 


* 


100 REM 
110 KEY OFF 
120 NEGS = "M" 

130 CLS 

140 INPUT "NUMERO RANDÜMÍCQ <1 A 9999) "íX 
150 INPUT "COM REQUADRÜ (5/N) M ; SN* 

1 AO INPUT "PRIMEIRO NUMERO DE 1 A (2/999) ";TÍ 
17Ü IF TI <2 THEN 160 
ISO IF TI > 999 THEN 160 

190 INPUT "SEGUNDO NUMERO DE 1 A Í2/999)" ;B1 

200 IF BI < B2 THEN 190 

210 IF BI > 999 THEN 190 

220 ERS « O 

230 Cl - Ü 

240 INPUT "ADICIONAR, SUBTRAIR * AMBOS < A , S , D) " í ASB* 

250 IF ASBÍ « "A" THEN 290 

260 IF AS ” "S" THEN 290 

270 IF ASB* = "D" THEN 290 

280 GOTO 240 

290 CLS; IF SN$ - "N" THEN 440 

300 R = 13 

310 FÜR C = 5 TO 15 

320 LOCATE R,C 

330 PRINT CHR* U89) % 

340 LOCATE <R+iO),C 
350 PRINT CHRÍÍ189) ; 

360 NEXT C 
370 C = 5 

380 FOR R » 13 TO 23 

390 LOCATE R,C 

400 PRINT CHR$U89>; 
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410 

LOCftTE R, (C+10) 


420 

PRINT CHRÍÍ189) 

5 

430 

NEXT R 


440 

NI = INT (TIHíRND(X) > + i 

450 

N2 = INT ÍB1*RND (X) >+l 

460 

IF NEG$ O " N " 

THEN 510 

470 

IF NI > N2 THEN 

510 

480 

NX * NI 


490 

NI - N2 


500 

N2 - NX 


510 

IF ftSB$ = "S" THEN 570 

520 

IF RSB$ = "O" THEN 550 

530 

01 = INT <2*RNDÍX> ) +1 

540 

GOTO 5S0 


550 

Ol = 1 


560 

GOTO 580 


570 

OI sa 2 


580 

IF Ü1 = 1 THEN 

590 

590 

Nl* = STRSÍN1) 


600 

N2$ * 8TR$(N2) 


610 

IF 01 - 1 THEN 

640 

620 

0P$ = 11 


630 

GOTO 650 


640 

QP$ s 11 + " 


650 

LI - LENÍNl*) 


660 

L2 = LEN ( N2$) 


670 

J = 20 


680 

FOR I ■ ü TO 1 

STEP --1 

690 

J = J-1 


700 

LOCATE J , 8 


710 

PRINT MID*<N1S, 

I , 1) ; 

720 

NEXT I 


730 

J = 20 


740 

FOR I = L2 TO 1 

STEP -1 

750 

J “ J-1 


760 

LOCATE J i 9 


770 

PRINT mD*(N2$, 

1,1) 

780 

NEXT I 


790 

LOCATE 16,9 


800 

PRINT OPS; 


810 

FOR I = 16 TO 19 

820 

LOCATE 1,10 


830 

PRINT M „ H ; 


840 

NEXT I 


850 

LOCATE 0,23 
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860 INPUT "DIGITE í 99999 PftRG F I NflL IZfiR > : "5 XI 

□70 IF XI = 99999! THEN 1030 

8S0 IF Oi = 2 THEN 910 

□90 IF XI = N1+N2 THEN 990 

900 GOTO 920 


910 

IF XI = N1-N2 

THEN 990 



920 

CLS 




930 

IF 01 = 2 THEN 

960 



940 

PRINT "ERRADO 

" ; N 1 ; " + 

" ;N2í 

" = " ; N 1 +N2 

950 

GOTO 970 




960 

PRINT "ERRADO 

" ;N1; " - 

11 *N2Í 

" - " ; N1“N: 

970 

ERS - ERS hl 




980 

GOTO 1010 





990 Cl = Cl + 1. 

1000 GOTO 290 
1010 INPUT X* 

1020 GOTO 290 
1030 CLS 

1040 PRINT "rtc****##*#**#*#*****#*****##*##**^******" 
1050 PRINT TftB i 30) í " *" 

1060 PRINT "* CORRETO = " ? Cl ; TftB <3B> i 

1070 PRINT "W"! TftB ( 38 > Ç 

1080 PRINT ERROS = "5 ERS i TftB (38) 5 

1090 PRINT "X<"; TftB<38>! ">K" 

1100 IF Cl > O THEN 1130 
1110 I F ERS > O THEN 1 1 30 
1120 ERS = 1 

1130 PRINT "* ESCORE = " ; INTÍC1/ÍC1+ 

ERS)*100); '"X"; TftBÍ38>; 

lldO PRINT T0B<38>; 

1150 PRINT "SoíoKXcUofcXofofoítJKHoXJiotolííKHtHíHoíoloUHoíííKíloiolííKXOK*###**#" 

1 160 PRINT 

1 170 PRINT 

11B0 PRINT 

1190 PRINT 

1200 END 
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CALCULADORA 

O programa Calculadora (CALCULA) funciona como uma calculadora — so- 
mando* subtraindo, multiplicando, dividindo, tirando a raiz e elevando vários 
números Na inicialização do programa* a linha 130 limpa o acumulador de 
totais (TTL) para zero. Cada cálculo realizado é digitado na linha 140. O que 
quer que seja que você digite é então avaliado pelas linhas 160 até o finai do 
programa. Após cada avaliação, o controle é devolvido à linha 140 para a 
próxima operação, 

Você pode entrar com dois números, os quais sâo separados por um operador ç 
terminados por um sinal de igual, como em 

200-100 = 

Quando um número inicia a expressão digitada, o valor total acumulado ante- 
riormente íTTTn é automaticamente limpo. Isto é determinado nas linhas 280 a 
330, onde o primeiro caracter digitado ê inspecionado para ver se ele é numérico 
ou um operador. 

As linhas 360 - 490 asseguram que a operação seja válida (ambos X, ‘ , A, S, 

um ponto ou um número). 

Então, dependendo se o número que está sendo lido caracter a caracter é o 
primeiro ou o segundo número, as linhas 500 - 630 movem os números e/ou pontos 
decimais para Nl$ ou N2$, A série de caracteres é examinada pelo comprimento 
da série de caracteres (LA na linha 340). Quando isto lór completado, NI e N2 
receberão valores numéricos das séries de caracteres Nl$ e N2$ (linhas 710 e 
740 1 . As linhas 750 e 760 limpam o total se o primeiro caracter digitado for 
numérico. As linhas 770 - 960 então computam o total para o resultado de NI e 
N2, produzido pelo primeiro operador. Então, se o segundo operador for um 
sinal de igual, o resultado será impresso (Unhas 940 e 950). Entretanto, se o 
primeiro caracter for um operador, o total anterior será somado, multiplicado, e 
assim por diante, para obter um novo total, Mais uma vez, sempre que aparecer 
um sinal de igual, o total será mostrado na tela. 

A seguir temos comandos de particular interesse. 

A linha 350 avalia os caracteres digitados, um por vez. A instrução MID$(A$,I,1 ) 
representa o segmento de AS* começando na posição número I para um com- 
primento de 1 caracter. Note que i é incrementado de 1 no loop FOR-NEXT nas 
linhas 340 - 680. 

A função LEN{A$ ) na linha 1 50 de termina o comprimento de A$ de modo q ue ele 
possa ser avaliado cracter por caracter. Finalmente, lembre-se de que AeS 
podem ser usados no lugar de + e - alternatívamente. 
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1 0 REM 

20 REM >K 


* 

30 REM # 

CALCULADORA 

>fc 

40 REM * 


* 

50 REM * 

DIREITOS «UTOROIS 

* 

60 REM * 


* 

70 REM * 

NELSON ALVES 

>k 

80 REM * 


* 

90 REM * 


* 

iOO 

REM íHiíí>Kíl<>KH<>K»oií>K)íc>K>K^>K>K^4<ilí)iCH<>K>í< 

1 10 

KEY ClFF 


1 20 

CLS 



130 

TTL = 

0 


140 

INRUT 

0* 


150 

LA = 

LEN(Ot) 


160 

IF LA 

= 0 THEN 140 


170 

IF A* 

= "FIM'' THEN 1190 


180 

IF A* 

<> "C" THEN 220 


190 

TTL = 

0 


200 

CLS 



210 

GGTO 

140 


220 

Hi$ = 

ti ti 


230 

N2S s 

ü ti 


240 

□ 1* = 

II li 


250 

02$ - 

II II 


260 

CINi 

■ Q 


270 

C2N2 

= 0 



280 

IF 

MID* (A*, 1 , 1 J 

b 

n 

a 

THEN 

300 

290 

GOTO 310 




300 

IF 

MID* tA$ i 1 * 1 i 

<- ”9" 

THEN 

330 


310 FL.ÜPER* “ "S" 
320 GOTO 340 
330 FLÜRER* » "N" 


340 

FOR I = 

: 1 

TO 

LR 


350 

A2$ 

. = MID* <R«, I , 1 ) 


360 

IF 

A2$ 

= 

11 X' 1 

THEN 

640 

370 

IF 

A2$ 

=3 

ii f ii 

THEN 

640 

380 

IF 

A2$ 

«= 

ii a ii 

THEN 

640 

390 

IF 

A2* 


i* ^ji 

THEN 

640 

400 

IF 

A2$ 

=E 

*' ^ *■ 

THEN 

640 

410 

IF 

A2$ 

= 

“A 11 

THEN 

640 

420 

IF 

A2$ 

£2f 

"S" 

THEN 

640 

430 

IF 

A2$ 


Kl _ II 

THEN 

640 

440 

IF 

A2$ 


II II 

THEN 

300 

450 

IF 

A2$ 

> 

II í^. II 

THEN 

4BO 
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460 IF 82$ < 11 0" TMEN 480 

470 GOTO 500 

480 PRINT “ DEOE SER # Oü X,/ n S + ,-,fl,S, 
490 GOTO 140 

500 IF 01$ ss TMEN 580 
510 IF FLOPER$ = "S" THEN 580 
520 C2N2 = C2N2 + 1 
530 IF C2N2 > 1 THEN 560 

540 N2$ = MID$ 1 , 1 > 

550 GOTO 570 

560 N2$ = N2$+MID$ (02$, 1 , 1 > 

570 GOTO 680 

580 C1N1 = ClNl+1 

590 IF Cl N 1 > 1 THEN 620 

600 N 1 $ = MI D$ (02$ ,1,1) 

610 GOTO 630 

620 N 1 $ = N1$+MID« <02$, 1 , 1 > 

630 GOTO 680 

640 IF 01$ = "" THEN 670 
650 02$ = R2$ 

660 GOTO 680 
670 01$ = A2$ 

680 NEXT I 

690 IF LEN < NI $ ) < l THEN 720 

700 IF NI $ = THEN 720 
710 NI = VfiL(Nl$) 

720 IF LEN <N2$ ) < 1 THEN 750 

730 IF N2$ = " " THEN 750 
740 N2 = VAL ( N2$ ) 

750 IF FLOPER$ = "S" THEN 970 


760 

TTL = 0 




770 

IF 01$ = 

fi R M 

THEN 

850 

780 

IF 01$ = 

il + ,t 

THEN 

650 

790 

ÍF 01$ - 

M g H 

THEN 

870 

800 

IF 01$ « 

li ^ ii 

THEN 

870 

810 

IF 01$ = 

ii ^ li 

THEN 

890 

820 

IF 01 $ - 

M /" 

THEN 

910 

830 

IF ül$ 

li A II 

THEN 

930 

840 

BOTO 140 




850 

TTL = NI 

+ N2 



860 

GOTO 940 




870 

TTL = NI 

- N2 



880 

GOTO 940 




890 

TTL = NI 

* N2 
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900 GOTO 940 

910 TTL * NI / N2 

920 GOTO 940 

930 TTL = NI A N2 

940 ÍF 02$ O '■ = " THEN 140 

950 PRINT “* TOTAL $" ; TTL 

960 GOTO 140 

970 IF 01$ = '■ = " THEN 1170 

980 IF 01$ = '■ + " THEN 1060 

990 IF 01$ = " fi" THEN 1060 

1000 IF 01$ = THEN 1030 

1010 IF 01$ = "S" THEN 1080 

1020 IF 01$ = "X" THEN 1100 

1030 IF 01$ = "/" THEN 1120 

1040 IF 01$ = " A " THEN 1140 

1050 GOTO 140 
1060 TTL = TTL + NI 
1070 GOTO 1150 
1080 TTL = TTL - NI 
1090 GOTO 1150 
1100 TTL = TTL * NI 
1110 GOTO 1150 
1120 TTL = TTL / NI 
1 130 GOTO 1150 
1140 TTL = TTL A NI 
1150 IF 02$ = "=" THEN 1170 
1 160 GOTO 140 
1170 PRINT "* 

USO GOTO 140 
1190 CLS: END 


TOTAL * m ;TTL 
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CALENDÁRIO 

O programa Calendário (CALEND) produz um calendário para qualquer ano de 
1800 a 2099. Com este programa, você pode achar a data de aniversário de 
qualquer pessoa, o dia e a semana exatos, ou imprimir o calendário cie qualquer 
ano quantas vezes quiser, 

A lógica por detrás deste cálculo é explicada nas linhas 140 - 180. A cada dia da 
semana é dado um número (Domingo e 1 , Segunda e 2, e assim por diante, até 
Sábado, o qual é 7 ). Em cada ano sucessivo, 1 de janeiro cai um dia maior do que 
o ano anterior. As únicas excessões para esta regra são: 

1. Dois dias são somados no ano seguinte ao ano bissexto. 

2. Nem todos os anos do século são bissextos embora eles sejam divisíveis por 
quatro. 

Estes anos centesimais, os quais terminam com dois zeros, sâo anos bissextos 
somente se eles forem divisíveis por40ü. Deste modo T 1800 e 1900 não foram anos 
bissextos, embora o ano 2000 venha a ser ano bissexto. 

Como você pode ver, este programa mantém calendários dos anos de 1800 a 
2099, Se você quiser estender-se para além de 2099 e abaixo de 1800, as linhas 360 
- 450 ajustam os parâmetros para 1800, as linhas 460 - 540 para os anos 1900, e as 
linhas 550 - 630 para os anos 2000. Para adicionar outros séculos, você precisa 
somar também módulos para o início e fim dos anos. Note que El inicia em 4 na 
linha 390 indicando que 1 de janeiro em 1800 caiu na quarta-feira, A variável 
ANO na linha 400 é 1, significando que 1800 nâo era um ano bissexto. E, na 
linha 430, LF (sinalizador do ano bissexto) é 99, o que significa que 1800 não foi 
ano bissexto naquele século. 

Desta informação básica, contando de 1800, 1900 ou 2000 para o ano do calendá- 
rio desejado, você pode facilmente calcular exatamente que o dia foi o dia 1 de 
janeiro em qualquer ano e se ou não este ano foi um ano bissexto. A geração de 
um calendário por ano é portanto uma tarefa simples. 

Agora vamos discutir alguns comandos específicos do programa, Como men- 
cionamos anteriormente, as linhas 200 - 630 ajustam os parâmetros desejados 
paia o primeiro ano do século para o ano do calendário requisitado. Você notará 
que, na linha 200, você pode finalizar o programa digitando 0 para o ano dese- 
jado, Obviamente este programa, como qualquer outro, pode também ser ter- 
minado através do comando CTRL + C. 

As linhas 640 - 860 contêm um loop FÜR-NEXT que computa o dia da semana 
para 1 de janeiro do ano pedido. O loop inicia (linha 640) com FANO — definido 
anteriormente como 18üÚ t 1900 ou 2000 — e termina quando o ano sendo compu- 
tado for igual ao ano requerido (linha 850 quando o contador I - Yl, o ano 
digitado na linha 200). A variável DIA1 (o dia da semana do primeiro dia do ano) 
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é somada, uma a uma, quando cada ano é contado, exceto quando o ano 
anterior tiver sido bissexto. Neste caso, 2 é somado a DIA1 (linhas 740 - 750). Se 
Dl Al exceder 7 o valor é mudado paia Dl AI menos 7 (linhas 810 - 820 j. 

Note que na linha 840, o resíduo de um comando de depuração ainda existe com 
o programa. Neste caso os valores de LF e DIA1 foram mostrados na tela para 
determinar o que estava acontecendo com a lógica do programa. O comando 
PRINT pode ajudar a mostrar os valores de algumas variáveis chave que você 
pode estar querendo conhecer. 

Após o dia da semana do primeiro dia do ano ter sido determinado e se ou não o 
ano selecionado for bissexto, o programa estará pronto para gerar o calendário. 
As linhas 940 - 2.030 contém dois loops f o loop I que conta de 1 até 12 para os 
meses, e o íoopJ que conta de 1 a 31 para os dias de cada mês. As linhas 990- 1 .330 
fornece as abreviações dos meses sendo mostrados. As linhas 950 - 960 geram a 
impressão do calendário. CALE ND, como qualquer outro programa, pode ser 
usado com ou sem uma impressora. Obviamente, o programa fica mais prático 
com sua própria impressora. 

As linhas 1.450 - 1,630 determinam quantos dias há em cada mês, assim como o 
dia da semana é incrementado de 1 (de 1 a 7 )e o número do dia do mês é impresso 
na coluna do dia da semana espaço pela instrução SPC (linhas 1,680 1.970). A 
linha 1.680 usa o comando GN GOTO que gera um salto para a linha desejada 
quando RI - L 2, 3, 4, 5, 6 ou 7. Quando o calendário está completo, a linha 2,040 
fecha a impressora (se ela estiver sendo utilizada) e a linha 2.050 retorna o 
controle para a linha 200. 


10 REM 



20 REM 

>k 

* 


30 REM 

* 

CALENDÁRIO * 


40 REM 

>K 



50 REM 

* DIREITOS AUTORAIS * 


60 REM 

>K 

* 


70 REM 

* 

NELSON ALVES # 


80 REM 

* 

* 


90 REM 

& 

* 


ÍOO REM 

#. JK »*t >K tf< * # # >K >K >fc >K & & >K >K 


110 KEY 

OFF 



130 CLS 




140 REM 

1 980 

E BASE PARA LA/ 3 (TER) 

150 REM 

Í9B1 

E BASE PARA LA+1/3 

ÍQUA> 

160 REM 

1982 

£ BASE PARA LA+2/6 

<SEX> 

170 REM 

1903 

E BASE PARA Lft+3/7 

(3AB) 

ISO REM 

Ol/Ol/SO CAI NO TERCEIRO 

DIA 

190 CLS 





36 
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200 INPUT "ANO DESEJADO PARA 0 CALENDÁRIO ";A1 

210 IF At =0 THEN 2620 

220 IF Al < 1800 THEN 190 

230 IF Al > 2099 THEN 190 

240 ANG1 ~ INTÍA1/4) 

250 LI ^ moiM 
260 ANO = Al -Lí 

270 REM ANO = O (ANO BISSEXTO) 

280 REM ANO = 1 (LA ■+■ 1 ) 

290 REM ANÜ =2 (LA + 2) 

300 REM ANO =3 (LA + 3) 

310 REM 1800 E 1900 NAÜ SAO ANOS BISSEXTOS 

320 IF Al < 1900 THEN 360 

330 IF Al < 2000 THEN 460 

340 IF Al <2100 THEN 550 

350 REM Hí)ioioK>loíOK>KíitíioíííKíK>foíoííi1í>KíKH<iío|<>|íH<>l<>|oÍí>íí>J<>l< 

360 I ANO - 1801 

370 FANG = 1899 

380 IF Al í> 1800 THEN 420 

390 RI - 4 

400 ANÜ « 1 

410 GOTO 870 

420 Dl Al * 4 

430 LF = 99 

440 REM * LA - 99 SIGNIFICA ANÜ Nü MESMO SÉCULO # 

450 GOTO 640 

460 I ANO = 1901 

470 FANO « 1999 

480 IF Al <> 1900 THEN 520 

490 RI “ 2 

500 ANO = 1 

510 GOTO 870 

520 D I A 1 a 2 

530 LF a 99 

540 GOTO 640 

550 I ANO “ 2001 

560 FANO a 2099 

570 IF Al <> 2000 THEN 610 

580 RI - 7 

590 AND = O 

600 GOTO 870 

610 D I A 1 = 7 

620 LF a o 

630 GOTO 640 

640 FOR I =* I ANO TO FANG 
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650 

LF 

= LF +1 





660 

IF 

LF > 90 

THEN 780 




670 

IF 

LF < 4 

THEN 740 




680 

LF 

= 0 





690 

REM 

LF = 0 

SIGNIFICA 

LA 



700 

REM 

LF a 1 

SIGNIFICA 

LA 


1 

710 

REM 

LF = 2 

SIGNIFICA 

LA 

+ 

2 

720 

REM 

LF = 3 

SIGNIFICA 

LA 

4 “ 

3 


730 REM LF - 99 SIGNIFICA ANO NO MESMO SÉCULO 

740 IF LF <> 1 THEN 780 

750 Dl A 1 * D I A 1 + 2 

760 GOTO 810 

770 D I Al = 5 

780 Dl A 1 a D I Al + 1 

790 IF LF í 90 THEN 810 

800 LF = 1 

810 IF Dl Al < 8 THEN 830 
820 Dl Al - Dl Al - 7 
830 RI “ Dl Al 

840 REM PRINT 11 LF = *' * LF ; “Dl Al * " 5 Dl Al 
850 IF I a Al THEN 870 
860 NEXT I 

870 REM RI E 0 RESTANTE (DIA PARA 1 DE JANEIRO) 

880 RI a Rl - 1 

890 IF Rl > O THEN 910 

900 Rí == 7 

910 REM PRINT "Rl = " ;R1 

920 INPUT "IMPRIMIR (S/N) " ;X* 

930 CLS 

940 FOR I a i to 12 

950 IF X* <> "S" THEN 980 

960 LPRINT 

970 GOTO 9S0 

980 PRINT 


990 MO* 

=5 

1 1 ti 




1000 

IF 

I 

= 

1 

THEN 

1120 

1010 

IF 

I 

= 

2 

THEN 

1 140 

1 020 

IF 

I 

= 

3 

THEN 

1 160 

1030 

IF 

I 

= 

4 

THEN 

1 180 

1040 

IF 

I 

= 

5 

THEN 

1200 

1050 

IF 

I 

— 

6 

THEN 

1220 

1060 

IF 

I 

= 

7 

THEN 

1240 

1070 

IF 

I 

= 

8 

THEN 

1260 

1080 

ÍF 

I 

a 

9 

THEN 

1280 

1090 

IF 

I 

- 

10 THEN 

1 1300 
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1100 IF I = 11 THE1M 1320 
1110 IF I = 12 THEN 1340 
1120 ME* = " JANEIRO 11 
1130 GOTO 1350 
1140 ME* - "FEVEREIRO" 

1 1 50 GOTO 1350 
1160 ME* = "MARCO" 

1170 GOTO 1350 
1180 ME* = "ABRIL" 

1190 GOTO 1350 
1200 ME* = "MAIO" 

1210 GOTO 1350 
1220 ME* - "JUNHO" 

1230 GOTO 1350 
1240 ME* = "JULHO" 

1250 GOTO 1350 
1260 ME* - "AGOSTO" 

1270 GOTO 1350 

1280 ME* = "SETEMBRO " 

1290 GOTO 1350 
1300 ME* = "OUTUBRO " 

1310 GOTO 1350 

1320 ME* - "NOVEMBRO" 

1330 GOTO 1350 

1340 ME* = "DEZEMBRO" 

1350 IF X* O "S" THEN 1450 
1360 IF I O 7 THEN 1400 
1370 FOR K M TO 10 
1380 LPRINT 
1390 NEXT K 

1400 LPRINT SPCÍ1) ;ME*í "/" 5 Al 

1410 LPRINT 11 — — — » : 

1420 LPRINT SPCíl > 5 "DO" 5SPCC2) ; "SE" 5SPCC2) ; "TE" i 

1430 LPRINT SPC < 2 > ; "GA" 5 SPG (2) ; "QI " ?SPC(2> í "SE" ; SPC (2) * "BA 1 ' 

1440 GOTO 1490 

1450 PRINT SPC( 1 HME*i "/" i Al 

1460 PRINT ,J — — — " = 

1470 PRINT SPC < 1 M "DO" \ SPC (2)5 "SE" í SPC (2) \ "TE 11 í 

1480 PRINT SPC C 2 > f "QA";SPCÍ2> ^QI" ;SPC<2> í "S£" í SPC í 2) 5 "BA" 

1490 FOR J “ 1 TO 31 

1500 IF J < 28 THEN 1700 

1510 IF I = 1 THEN 1700 

1520 IF I = 3 THEN 1670 

1530 IF I = 5 THEN 1670 

1540 IF I =7 THEN 1670 
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1550 

IF 

I = 

8 THEN 

1670 

1560 

IF 

I " 

10 THEN 

1670 

1570 

IF 

I ■ 

12 THEN 

1670 

1580 

IF 

I = 

9 THEN 

1690 

1 590 

IF 

I = 

4 THEN 

1690 

1600 

IF 

I = 

6 THEN 

1690 

1610 

IF 

I = 

1 1 THEN 

1690 

1620 

IF 

ANO 

- 0 THEN 1650 

1630 

IF 

J > 

28 THEN 

2430 

1640 

GOTO 1700 


1650 

IF 

J > 

29 THEN 

2430 

1660 

GOTO 1700 


1670 

IF 

J > 

3 1 THEN 

2430 

1680 

GOTO 1700 


1690 

IF 

J > 

30 THEN 

2430 

1 700 

RI 

= Rl + l 


1710 

IF 

RI 

( 8 THEN 

1770 

1720 

RI 

= 1 



1730 

IF 

X* 

O "S" THEN 1760 


1740 LPRINT 
1750 GOTO 1770 
1760 PRINT 

1770 ÜN RI GOTO 1 780, 1840 t 1 940, 2040, 2140 t 2240 , 2340 
1780 IF X* O "S" THEN 1810 
1790 LPRINT SPC(0);J; 

1800 GOTO 1 820 

1810 PRINT SPC<Q> ; J5 

1820 GOSUB 2500 

1830 GOTO 2430 

1840 IF X* <> "S" THEN 1890 

1850 IF J O 1 THEN 1870 

1860 LPRINT SPCÍ4M 

1870 LPRINT Jí 

1 080 GDI O 1920 

1890 IF J O 1 THEN 1910 

1900 PRINT SPC ( 4 ) $ 

1910 PRINT J; 

1920 GOSUB 2500 

1930 GOTO 2430 

1940 IF X* <> "S" THEN 1990 

1950 IF J O 1 THEN 1970 

1960 LPRINT SPC (3) ; 

1970 LPRINT Ji 
1980 GOTO 2020 
1990 IF J O 1 THEN 2010 
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2000 

PRINT SPC í 8) ; 



2010 

PRINT J; 



2020 

GOSUB 2500 



2030 

GOTO 2430 



2040 

IF X* O 11 S M THEN 

2090 

2050 

IF J O 1 THEN 

2070 

2060 

LPRINT SPCU2M 



2070 

LPRINT J; 



2080 

GOTO 2120 



2090 

IF J O 1 THEN 

2110 

2100 

PRINT 8PC (12) ; 



2110 

PRINT j; 



2120 

GOSUB 2500 



2130 

GOTO 2430 



2140 

IF X* (> "S" THEN 

2190 

2150 

IF J <> 1 THEN 

2170 

2160 

LPRINT SPCÍ16) ; 



2170 

LPRINT J; 



2130 

GOTO 2220 



2190 

IF J <> 1 THEN 

22 

10 

2200 

PRINT SPCÍ 16) ; 



22 1 0 

PRINT Ji 



2220 

GOSUB 2500 



2230 

GOTO 2430 



2240 

IF X* O "5" THEN 

2290 

2250 

IF J <> 1 THEN 

22 

70 

2260 

LPRINT SPC(2Ü>; 



2270 

LPRINT J* 



22S0 

GOTO 2320 



2290 

IF J <> 1 THEN 

23 

10 

2300 

PRINT BPCC20) ; 



2310 

PRINT J? 



2320 

GOSUB 2500 



2330 

GOTO 2430 



2340 

IF X$ O 11 S M THEN 

2390 

2350 

IF J O 1 THEN 

2370 

2360 

LPRINT SPC (24 ) Ç 



2370 

LPRINT J; 



2380 

GOTO 2420 



2390 

IF J <) 1 THEN 

2410 

2400 

PRINT SPC (24) ; 



2410 

PRINT Jí 



2420 

GOSUB 2500 



2430 

NEXT J 



2440 

IF XS <> "S" THEN 

2470 
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24 50 LPRINT 
2460 GOTO 2480 
2470 PR INI 
24 SO NEXT I 
2490 GOTO 190 
2 SOO = STRííJ) 

2510 LJ = LENÍJ*) 

2520 IF X* O "S" THEN 2570 

2530 IF LJ <3 THEN 2560 

2540 LPRINT SPC<0) í 

2550 GOTO 2610 

2560 LPRINT SPCÍDJ 

2570 IF LJ <3 THEN 2600 

2580 PRINT SPCÍO) í 

2590 GOTO 2610 

2600 PRINT SPC<1 > i 

2610 RETURN 

2620 CLSiEND 
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JANEIRO/ 1970 JULHO/ 1970 


DO 

SE 

TE 

Qh 

G í 

SE 

Sft 

DO 

SE 

TE 

QA 

GI 

SE 

SA 





1 

j£ 

3 




1 

2 

3 

4 

4 

5 

6 

7 

8 

9 

10 

5 

6 

7 

8 

9 

10 

1 1 

1 1 

12 

13 

14 

15 

16 

17 

12 

13 

14 

15 

16 

17 

18 

1 8 

19 

20 

21 

22 

23 

24 

19 

20 

21 

22 

23 

24 

25 

23 

26 

27 

28 

29 

30 

31 

26 

27 

2B 

29 

30 

31 


fevere 

IRO/ 

1970 




AGOSTO/ 

1970 




DO 

SE 

TE 

GA 

QI 

SE 

SA 

DG 

SE 

TE 

GA 

Q I 

SE 

SA 

1 

2 

3 

4 

5 

6 

7 

2 

3 

4 

5 

6 

7 

1 

8 

8 

9 

1Q 

1 1 

12 

13 

14 

9 

IO 

1 1 

12 

13 

14 

15 

1 3 

16 

17 

18 

19 

20 

21 

16 

17 

18 

19 

20 

21 

22 

2*2 

23 

24 

25 

26 

27 

28 

23 

24 

25 

26 

27 

28 

2>CJ| 








30 

3 1 






MARCO/ 

1 970 













— 






SETEMBRO/ ; 

1970 




DO 

SE 

TE 

GA 

GI 

SE 

SA 















DO 

SE 

TE 

GA 

GI 

SE 

SA 

1 

2 

3 

4 

5 

6 

7 



1 

2 

3 

4 

5 

8 

9 

10 

1 1 

12 

13 

14 

6 

7 

8 

9 

10 

1 1 

12 

15 

16 

17 

18 

19 

20 

21 

1 5 

14 

15 

16 

17 

18 

19 

22 

23 

24 

23 

26 

27 

2Q 

20 

21 


23 

24 

25 

26 

29 

30 

31 





27 

28 

29 

30 




ABRIL/ 

1970 





OUTUBRO/ 1970 




DO 

SE 

TE 

GA 

GI 

SE 

SA 

DO 

se 

TE 

GA 

QI 

SE 

SA 




1 

2 

3 

4 





1 

2 

3 

5 

6 

7 

8 

9 

10 

1 1 

4 

5 

6 

7 

8 

9 

IO 

12 

13 

14 

15 

1 6 

17 

18 

1 1 

12 

13 

14 

15 

16 

17 

19 

20 

21 

22 

23 

24 

25 

18 

1 9 

20 

21 

22 

23 

24 

26 

27 

28 

29 

30 



25 

26 

27 

28 

29 

30 

31 

MAIO/ 

1970 





NOVEMBRO/ 

1970 




DO 

SE 

TE 

QA 

QI 

SE 

SA 

DO 

SE 

TE 

QA 

GI 

SE 

SA 






1 

2 








3 

a 

5 

6 

7 

8 

9 

í 

2 

3 

4 

5 

6 

7 

10 

1 1 

12 

13 

14 

15 

16 

8 

9 

1 0 

1 1 

12 

13 

14 

17 

18 

19 

20 

21 

22 

23 

15 

16 

17 

18 

19 

20 

21 

24 

25 

26 

27 

28 

29 

30 

22 

23 

24 

25 

26 

27 

28 

31 







29 

30 






JUNHO/ 

1970 





DEZEMBRO/ 

1970 




DO 

SE 

TE 

QA 

GI 

SE 

SA 

DO 

SE 

TE 

GA 

QI 

SE 

SA 


1 

2 

3 

4 

5 

6 



1 

2 

3 

4 

5 

7 

8 

9 

1Q 

1 1 

12 

13 

6 

7 

S 

9 

10 

1 1 

12 

14 

15 

16 

17 

18 

19 

20 

13 

14 

15 

16 

17 

18 

19 

21 

22 

23 

24 

25 

26 

27 

20 

21 

22 

23 

24 

25 

26 

28 

29 

30 





27 

28 

29 

30 

31 




Figura 5. Programa Calendário: exemplo 
de impressão do calendário de 1970. 
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JANEIRO/ 2000 


DO 

SE 

TE 

QA 

QI 

SE 

SA 







1 

2 

3 

4 

5 

6 

7 

3 

9 

10 

1 1 

1 2 

13 

14 

15 

16 

1 7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 






FEVEREIRO/ 2000 




DO 

SE 

TE 

GA 

Ol 

SE 

SA 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 i 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 





MARCO/ 

2000 





DO 

SE 

TE 

GA 

GI 

SE 

SA 




1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

*2 -1M 1, 

24 

25 

26 

27 

28 

29 

30 

31 


ABRIL/ 

2000 





DO 

SE 

TE 

QA 

QI 

SE 

SA 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 







MAIO/ 2000 





DG 

SE 

TE 

GA 

QI 

SE 

SA 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

1 7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 




JUNHO/ 

2000 





DO 

SE 

TE 

GA 

QI 

SE 

SA 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

23 

26 

27 

28 

29 

30 



JULHO/ 2000 


DO 

SE 

TE 

QA 

01 

SÉ 

SA 

I 

3 

2 

3 

4 

5 

6 

7 

9 

10 

1 1 

12 

1 3 

14 

i 5 

16 

17 

1 B 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 






AGOSTO/ 

2000 




DO 

SE 

TE 

GA 

GI 

SE 

SA 



í 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

J 3 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



SETEMBRO/ 2000 




DO 

SE 

TE 

QA 

QI 

SE 

SA 






1 

~r 

3 

4 

5 

6 

7 

8 

9 

10 

1 i 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

OUTUBRO/ 2000 




DQ 

SE 

TE 

QA 

QI 

SE 

SA 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 





NOVEMBRO/ 2 

000 




DO 

SE 

TE 

QA 

GI 

SE 

SA 




1 

2 

3 

4 

5 

6 

7 

3 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

13 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



DEZ 

EM» RO/ 2000 




DO 

SE 

TE 

QA 

QI 

SE 

SA 






1 

2 

3 

4 

5 

6 

7 

a 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

1 B 

19 

20 

21 

22 

23 

24 

2 ' 5 

26 

27 

28 

29 

30 

31 








Figura 6, Programa Calendário: exemplo 
de impressão do calendário do ano 2000. 
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MULTIPUC. /DIVISÃO 


O programa Multiplic/Di visão (MULDIV), parecido com o programa ADISUB, 
tem a função de melhorar seu conhecimento de multiplicação e divisão. O 
layout da tela e a lógica do programa são muito parecidos com o descrito no 
programa ADISUB. 

Novamente, você pode ter um quadro em tomo da conta, se quiser. Pode ainda 
escolher multiplicação, divisão, ou ambos dinha 240). 

O primeiro e último números são selecionados randomic amente nas linhas 440 e 
450, como no programa de adição/ subtração. Nas linhas 460 - 520 a operação 
(divisão ou multiplicação) é determinada. 


O método de mostrar os dois números é o mesmo que o do programa ADISUB: 
um caracter de cada vez é movido para as duas linhas no centro da tela e você é 
solicitado a responder na parte inferior da tela. 


Este programa é particularmente hom para exercitá-lo em tabelas de mui tipi i- 
cação, já que podemos selecionar o final das faixas para ambos os números 
(primeiro e segundo). A propósito, você pode começar com o primeiro valor de 1 
a 9 e o segundo de 1 a 12, 


Tentando responder o mais rápido possível, adultos também podem melhorar 
seus conhecimentos com MULDIV. Lembre-se de que ambos os números podem 


ter a faixa 

de operação até 999. 


10 

REM 

?p. í|\ rf\ q®. Jp rp. rp rfV r|\ rf i i tTi rf'i «l' 

20 

REM 

* 


* 

30 

REM 

* 

MULTIRL IC. /DIVISÃO 


40 

REM 

* 


* 

50 

REM 

* 

DIREITOS AUTORAIS 


60 

REM 




70 

REM 

* 

NELSON ALVES 

* 

80 

REM 

* 



90 

REM 

* 


m 


iOO 
i 10 
120 
130 
140 
150 
160 
170 
180 
190 


KEY ÜFF 
NEG$ = "N 11 
CLS 

"NUMERO RANDOMICÜ <1 A 9999) 

"CDM REQUADRO <S/N)";SN* 

"PRIMEIRO NUMERO DE 1 A <2/999) 
í 2 THEN 160 
> 999 THEN 160 

"SEGUNDO NUMERO DE 1 A (2/999) ";B1 


INPUT 
INFUT 
I NPUT 
IF TI 
IF TI 
INPUT 


1 ;x 
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200 IF Et 1 < 2 THEN 190 

210 IF BI > 999 THEN 190 

220 ERS = 0 

230 Cl a O 

240 I NPUT " D I V' r SAÜ , MULTIPL I C - , AMBOS ( D , M , A) " í RSBifc 

250 I F A5B$ = 11 D" THEN 290 

260 IF ASB$ - "M" THEN 290 

270 IF ASB* "A" THEN 290 

2S0 GOTO 240 

290 CLS: IF SNS “ "N" THEN 440 

300 R a 13 

310 FOR C * 5 TO 15 

320 LOCATE R,C 

330 PRINT CHR$Í 189) ? 

340 LOCATE <R+10),C 
350 PRINT CHR*(X89); 

360 NEXT C 
370 C a 5 

330 FOR R = 13 TO 23 

390 LOCATE R,C 

400 PRINT CHR$ í I39> ; 

410 LOCATE R, ÍC+10> 

420 PRINT CHR1M139}; 

430 NEXT R 

440 NI * I NT < T 1 >KRND ( X ) ) + 1 
450 N2 - INT (BDKRND (X) ) -Hl 
460 IF NEG$ O ,T N " THEN 510 
470 IF NI > N2 THEN 510 
510 IF ASB$ = 11 D “ THEN 570 
520 IF ASB$ - "M" THEN 550 
530 01 = INT(2#RND<X) >+I 
540 GOTO 580 
550 01 « 1 
560 GOTO 580 
570 01 = 2 

580 IF 01 = 1 THEN 590 
590 NI = Nl>feN2 
595 Nl$ = STR$(N1> 

600 N2$ » STR*CN2) 

610 IF 01 * 1 THEN 640 
620 OPt - "/" 

630 GOTO 650 
640 OP* = "X" 

650 LI = LENÍNUtO 
660 L2 = LEM <N2$ ) 
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670 J = 20 

680 FGR I = Li Tü 1 STEP -1 
690 J = J— 1 
700 LGCATE J,& 

710 PRINT MID* (Nl* t I i 1 > 3 
720 NEXT I 
730 J = 20 

740 FOR I = L2 TO 1 STEP -i 

750 J a J“1 

760 LGCATE J,9 

770 PRINT hl D* (N2S, I *i) 

780 NEXT I 
790 LOCA TE 16,9 
800 PRINT 0P9 ; 

810 FOR I = 16 TO 19 
920 LOCfiTE 1,10 
830 PRINT 
840 NEXT I 
850 LGCATE 0,23 

860 INPUT 11 Dl G 1 TE <99999 PfiRft FINALIZAR): M ;Xi 

870 IF XI = 999991 THEN 1030 

880 IF 01 “ 2 THEN 910 

090 IF XI “ Ni#!M2 THEN 990 

900 GOTO 920 

910 l F XI = N1/N2 THEN 990 
920 CLS 

930 IF 01 = 2 THEN 960 

940 PRINT 11 ERRADO 11 5 NI 5 " >í " ; N2 ; " = 11 ?NlítíN2 

950 GOTO 970 

960 PRINT 11 ERRADO 11 çNl ? 11 / " ; N2 i 11 ~ 11 ; N1/N2 

970 ERS = ERG* 1 

980 GOTO 1010 

990 Cl = Cl + 1 

1000 GOTO 290 

lOlO INPUT X* 

1020 GOTO 290 
1030 CLS 
1040 PRINT M 

1050 PRINT 11 #*' ; TAB < 38 > i " * fl 

1060 PRINT n jK CORRETO - M 5 Cl í TAB (38) ; “* ,J 

1070 PRINT ,! * M ; TA8(38>; 

1080 PRINT •'* ERROS = "5 ERS; TAB (38) 3 '*#'■ 

1090 PRINT ; TfiB(3SM 
1100 IF Cl > O THEN 1130 
1110 IF ERS > O THEN 1130 


Programas Educaç/ona/s e Pessoa/s 107 


1120 ERS = 1 

1130 PRINT M X< ESCORE - '* 3 INT(C1/<C1 + 

ERS> H< 1 ÜÜ ) 5 "X" ? TAB<38); 

1140 PRINT TAB < 38 ) í "jK" 

1 150 PRINT " 

1160 PRINT 
1170 PRINT 
1180 PRINT 
1190 PRINT 
1200 END 


í OS MSX — /Me mo res Pro gr am as 


GRÁFICOS DE BARRAS 

O programa Gráfico de Barras (GRÁFICO) desenha um gráfico de barras hori- 
zontal para qualquer conjunto de figuras, Até 10 barras podem ser mostradas 
em um gráfico. Cada barra pode ser desenhada e ter um nome que será impresso 
à esquerda da barra, O nome pode conter até 9 caracteres (o título do elemento 
na linha 280). 

No início do programa, você é solicitado a dar o nome do gráfico, Este título 
pode ter até 18 caracteres (linhas 190 - 200). Você pode também precisar identifi- 
car o valor máximo que quer que o gráfico seja capaz de desenhar (linha 170), 
Note que digitar o valor máximo como 0 termina o programa (linha 180). 

Apds ter ajustado o valor máximo, comece a inserir os valores dos elementos 1 
até o número de elementos desejado. Digite os valores até digitar FIM para o 
nome do elemento; neste momento a seção de entrada de dados termina (linhas 
260 - 350), O valor máximo previamente digitado é então dividido por 12 para ter 
o valor de um quadrado ou bloco do gráfico. (Veja a linha 360). Em outras 
palavras, se qualquer elemento tiver um valor máximo (eles todos podem ter 
valores menores ou o mesmo, mas não maior), o comprimento de cada barra 
pode ser de 12 blocos. 

As linhas 400 - 520 então mostram o gráfico na tela e/ou na impressora (se você 
responder S na linha 220), O título é impresso no topo, e o nome de cada 
elemento do gráfico precede a barra para o seu valor. Se desenhado também na 
impressora, Os são usados no lugar dos blocos na tela. Quando o gráfico está 
completo, as opções são FIM (F), IMPRIMIR (I) ou continuar com um novo 
gráfico (RETURN). 


1 O REM >ÍofotOi<iÍ<>íC>K>iO(<>K>t<>iotOiOlOKHOK>tOí<>ií>íí Hí 

20 REM >K * 

30 REM * GRAFICO DE BARRAS fc 

40 REM Ht H< 

50 REM tfí DIREITOS AUTORAIS * 

80 REM * * 

70 REM * NELSON ALVES * 

SO REM * 

90 REM >K * 

ÍOO REM Hí>K>K>fí 
liO KEY OFF 
130 DIM VUQ) 
í 40 DIM NÍ(IO) 

150 CLS 
160 CTR = O 

170 INPUT " VALOR MÁXIMO: " ; MA 1 


Programas Educacionais e Pessoais 709 


IF MAl = Q THEN 700 

INPUT "NOME DO GRAFICO ÍÍ8 CARACS . ) : H ; GN* 

IF LENÍGN*) > 13 THE N 190 

ISH$ ® "N JI 

I NPUT " I MPRESSQRA < S/N ) " ; I SN* 

IF ISM* = 11 S" THEN 250 
IF I SN* <> "N 11 THEN 220 

CLS 

FOR I = 1 TO 10 

PRINT J 'NO. DO ELEMENTO: " ; I 

I NPUT M T I TULO DO ELEMENTO < 9 CARACS . ) : M ; N* í I ) 
IF LEN < N* ( I ) ) > 9 THEN 280 

IF N*íl) « "FIM" OR N*(I> = " 11 THEN 360 
CTR = CTR + 1 

INPUT "VALOR DO ELEMENTO 11 5 V ( I ) 

IF V(I) > MAl THEN 320 
IF VÍI) <0 THEN 320 
NE XI I 

GRAFO =* I NT <MA1 / 12) 

CLS 

FOR I = 1 TO CTR 

IF I SN* <> "S" THEN 420 

L PRINT N* í I ) i SPC i 9-LEN í N* <!>>>; 

GOTO 430 

PRINT N* (1)5 SPC í 9-LEN ( N* ( I ) ) > 5 
V2 ™ INT (VÍI) /GRAFO) 

- O THEN 550 
1 TO V2 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
380 
370 
380 
390 
400 
410 
4 2 0 
430 

440 IF V2 
450 FOR J = 

460 IF ISNS <> "8" THEN 

470 LPRINT CHR*(219M 
480 GOTO 500 
490 PRINT CHR* (219 ) % 

500 NEXT J 

510 IF I SN* <> "S" THEN 

520 LPRINT 

530 LPRINT SPC(9);va> 
540 GOTO 570 
550 PRINT 

580 PRINT SPC ( 9 > í V ( I > 
570 NEXT I 

5B0 IF I SN* <> "S" THEN 

590 LPRINT 

600 LPRINT CHR*(219>5 ” 
810 GOTO 850 
620 PRINT 


490 


550 


630 

~ H ; GRAFO í SPC (5) 5GN* 
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630 PRINT CHR*Í219); " = 11 ; GRAFO ; SPC <5M GN$ 

640 RRINTs GOTO 660 
650 LPRINT 

660 INRÜT M F— FIM/ I = IMPR I M IR/RETURN=CQNT I NU AR " í É* 
670 IF E$ = 11 F H THEN 700 

680 IF ES - "I" THEN ISNS = "S" 5 GOTO 370 
690 GOTO 150 
700 CLS 
710 END 
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ANALISE DE LÚGICA 

O programa Análise de Lógica (ANALOG) é um programa onde você tenta 
“chutar' 1 um numero de três dígitos baseado em dicas que obtém de “chutes" 
anteriores. 

Primeiro, o programa seleciona um número randômico — de 1 a 999 (linha 230), 
Nas linhas 240 - 320, um número de um ou dois dígitos teve zeros a esquerda 
adicionados à série de caracteres representada por X$ {linha 240). Assim, o 
número 9 é 009, e 98 é 098 A variável Xl$, X2$e X3$ contém o primeiro, segundo 
e terceiro dígito que será comparado com o número chutado. O número de 
tentativas que você fez é incrementado na linha 360 antes do chute de três 
dígitos da linha 380, 

Se você falhar na digitação dos três dígitos, a linha 400 retornará para a linha 380 
para tentar novamente. (Para chutar o número 3, você deve digitar 003) Yl$, 
Y2$ e Y3$ recebem os valores do número de três dígitos para ser comparado com 
os digitos atuais. As linhas 490 - 560 verificam se os números corretos estão nas 
posições corretas, Se todos os três números estiverem corretos, você chutou um 
número randômico e o controle será transferido para a linha 550 até a linha 660. 

Caso contrário, as linhas 570 - 620 verificam cada digito que você chutou contra 
cada dígito do número e diz quantos dígitos do seu chute estão corretos (mas 
não necessariamente na posição correta). Usando a informação acumulada, 
você deve tentar chutar o número em menos tentativas quanto for possível 


10 

REM 

X * >K Hc >k X X X # ?ií X X X X X X X X X tf< X 

20 

REM 

* 



X 

30 

REM 

Hí 

ANALISE 

DE LOGICfi 

X 

40 

REM 

* 



X 

50 

REM 

X 

DIREITOS 

AUTORPIS 

X 

60 

REM 

X 



X 

70 

REM 

X 

NELSON 

ALVES 

X 

30 

REM 

X 



X 

90 

REM 

X 



* 


1 DO REM >KílcH<>tíHíH<>íí>K>i<^>K>|í>K>loiC)ÍO^OK3Kíí<>K)tOk 
110 KEY DFF 
120 CLS 

130 INPUT "DIGITE QUALQUER NUMERO H *fil 
140 CLS 

150 PRINT TAB Í7) 5 
160 PRINT TAB<7> ; 

170 PRINT TAB «7) í 
180 PRINT TABC7) ? 

1 90 PR I NT TAB (7) ; 


i % %Lr T.jv \£/ d/ ü/ ■vi/ %i/ ■tl/ y# si,- y# U/ iijT ii/ y j fcijr j- 

rT» iq - fp #p rp. /p i jT. rp, íy, rfíp. /f, ,rp ry* rp /p /p íp irj\ rf*. 

X* 

"X ANALISE LÜGICA X 1 

x 1 
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200 LGCATE 7,15:INPUT " JOGAR <J> OU FIM CF) ";JFS 
210 IF JFS - M F 11 THEN 840 
220 CLS 

230 X = INT (RND CAI) #999 ) + 1 
240 XS « STRS (X > 

250 CTR « O 
260 LX - LENCXS) 

270 QN LX GOTO 300 , 300 , 320 , 330 

280 PR INT LX 

290 GOTO 200 

300 XS “ "00" + X* 

310 GOTO 330 

320 XS = "C+XÍ 

33 0 XIS - MID*ÍXS,2,1> 

340 X2S «a MIDS (XS,3, í ) 

350 X3S = MID*<XS,4,1> 

360 CTR « CTR+1 

370 PRINT “TENTATIVA NO* : ";CTR 

380 INPUT “TENTE COM 3 DÍGITOS ";YS 
390 LY = LENÍYS) 

400 IF LY <> 3 THEN 300 

410 Y 1 $ = MIDS <YS, 1,1) 

420 Y2* = mD$(Y$»2,l) 

430 Y3S = MIDS ÍYS, 3,1) 

440 CNUM = O 


450 

CP 

= 0 




460 

X 1 F 

= 0 




470 

X2F 

« 0 




480 

X3F 

“ o 




490 

IF 

xis <> 

Y1S 

THEN 

510 

500 

CP 

= CP+1 




510 

IF 

X2S (> 

Y2S 

THEN 

530 

520 

CP 

= CP+l 




530 

IF 

X3S < > 

Y3S 

THEN 

560 

540 

CP 

= CP+l 




550 

IF 

CP = 3 

THEN 650 


560 

ZS 

® Y1S 




570 

GÜSUB 690 




580 

z* 

= Y2S 





590 GOSUB 690 
600 ZS = Y3S 
610 GOSUB 690 

620 PRINT "VOGE TEli „ * „ " 5 CP 5 " CPDSICAO CORRETA" 

630 PRINT "E ";CNUM; IJ CDIGITO(S) CORRETOCS)" 

640 GOTO 360 
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650 PR I NT : PR I N T = PR I NT : PR INT “CERTO ! 1 í " ; CHRS C 7 ) ELE E " ; XS 

660 PRINT a PR INT 11 ##########################*########### 11 

670 LOCATE 0,23i INPUT "DIGITE í J ) ÜGAR / (F)IM "UFS 

680 IF JES = " F" THEN GOTO 840 ELSE 220 

690 IF XI F * 1 THEN 740 

700 IF ZS <> XI* THEN 740 

710 X 1 F = 1 

720 CNUM = CNliM+1 

730 GDTÜ 830 

740 IF X2F = 1 THEN 790 

750 IF Z$ O X2S THEN 790 

760 X2F = 1 

770 CNUM = CNUM+1 

780 GQTÜ 830 

790 IF X3F ® 1 THEN 830 

800 IF Zt <> X3S THEN 830 

810 X3F = 1 

820 CNUM =* CNUN+1 

830 RETURN 

B40 CLS = END 
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ANALISE DE LÓGICA 

O programa Análise de Lógica (ANALOl) embora seja parecido com o ANA- 
LOG requer que você "chute" quatro dígitos numéricos ao invés de um número 
com três dígitos. 

Na linha 230, um número randõmíco entre 1 e 999 é selecionado. As linhas 260 - 
330 adicionam zeros à esquerda de números menores do que 1.000. 

O número que você chutou na linha 400 é comparado com o número a ser 
tentado, assim como no programa ANALOG, Obviamente você precisará de 
mais tentativas para descobrir um número de quatro dígitos que um número de 
três dígitos. 


10 

REM 

•Jr 1 i 1/ uf vi/ y# yv üí y/ üV xl/ xJl^ xl/ xl/ ü/ xl/ xl/ '1/ xi/ xl/ 

q' q\ /Jv r|X r|X fp /|\ fP. qS p|^ rP« qk ql rp, /l s . qt 


20 

REM 

* 



30 

REM 

* 

ANALISE DE LÓGICA * 


40 

REM 

* 

>k 


50 

REM 

* 

DIREITOS AUTORAIS * 


60 

REM 




70 

REM 

Hí 

NELSON ALVES * 


80 

REM 

# 

Hí 


90 

REM 

Hí 

* 


ÍOO 

REM 

H< j|t jíí jJí íjí 5^ )ít íjc íK ^ >l< M >K Hí Hí Y ^ í)í jH 


110 

KEY 

OFF 


120 

CLS 




130 

INPUT 

"DIGITE QUALQUER NUMERO ";A1 


140 

CLS 




150 

PR INT 


160 

PR INT 

T AB í 7 > ; "# 

M 

170 

PR INT 

TAB<7)? H >K ANALISE LOG I CA 

* 

180 

PR INT 

TAB (7> ; "* 


190 

PR INT 

TABC7) í " J(<íí<!ií>ít>|<H<íl<Hot<Y^>ííHcíi<>Í<H<HíiK>lojoíoKí|< 

200 

LOCATE 7, 15 1 INPLJT “JOGAR <J) OU FltMF) 

210 

IF JFS = "P" THEN 970 


220 

CLS 




230 

X = 

INT < RN D (Al > *9999) + 1 


240 

X* - 

STR* í X > 


250 

CTR 

= 

0 


260 

LX » 

LEN (X*) 


270 

ON LX 

GOTO 280,280,310,330,340 


280 

GOTO 

200 


290 

X* = 


"000 M + X* 


300 

GOTO 

340 



i JFS 


310 X* = 11 00 11 + xs 
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320 GOTO 340 

330 X* = "O^+XÍ 

340 XI* = MID*(X*,2,1> 

350 X2$ a MID$(X$,3Ú> 

360 X3* ® Ml D*ÍX*,4,Í) 

370 X4* = MID*ÍX*,5,1> 

380 CTR = CTR+1 

390 PRINT "TENTATIVA NO - : 11 ; CTR 

400 INRUT "TENTE CüM 4 DÍGITOS " (V* 
410 LY * LEN ( Y* > 

420 IF LY O d THEN 400 
430 Yl$ = MID*<Y*i 1 , 1) 

440 Y2$ « MID*<Y*,2,1) 

450 Y3S = MIDS<Y*,3,1> 

460 Y4* = MI Dí ( Y* ,4,1) 

470 CNüh - O 
480 CP = 0 
490 XI F » O 
500 X2F « O 
510 X3F - O 
520 X4F = O 


530 

IF 

XI* o 

Yl* 

THEN 

550 

540 

CP 

= CP+1 




550 

IF 

X2* O 

Y2$ 

THEN 

570 

560 

CP 

- CP+1 




570 

IF 

X3* (> 

Y3* 

THEN 

590 

580 

CP 

* CP+1 




590 

IF 

X4* O 

Y4$ 

THEN 

620 

600 

CP 

== CP + 

1 



610 

IF 

CP “ 4 

THEN 

1 730 


620 

Z* 

* Yl* 




630 

GÜSUB 770 




640 

Z* 

= Y2* 




650 

GOSUB 770 




660 

Z* 

“ Y3* 




670 

6GSUB 770 




680 

z* 

= Y4S 





690 GOSUB 770 

700 PR INT "VOCE TEM ■ . . " ? CP ? " (POSICAG CORRETA ” 

710 PR INT "E 11 5 CNÜM ; " (DIGITO ÍS> CORRETO (S) " 

720 GOTO 380 

730 PR INT:.PRINT:.bPR 1NT SPRINT "CERTO ! M H í CHRí <7) 5 11 * ELE E 
740 PR INT S PR INT J É >H H< H< >K >K >K 5K >K >1< >K >f< >K >K H< >W >K >fí HK ítt " 
750 LOCATE 0,23*INPUT "DIGITE < J ) OGAR / ÍF)IM "SJF* 

760 IF JF* = 11 F 11 THEN GOTO 970 EL GE 220 
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770 I F X1F = i THEN 820 

780 IF Z* O XI $ THEN 820 

790 X IF = 1 

800 CNUli » CNUM+1 

810 GOTO 960 

820 IF X2F == 1 THEN 870 

830 IF <> X2* THEN 370 

840 X2F = 1 

850 CNUM = CNÜtH-1 

860 GOTO 960 

870 IF X3F = 1 THEN 920 

8S0 IF Z % O X3* THEN 920 

890 X3F = 1 

900 CNUM « CNUM+i 

910 GOTO 960 

920 IF X4F - 1 THEN 960 

930 IF Zí <> X4* THEN 960 

940 X4F = 1 

950 CNUli » CNUM + 1 

960 RETURN 

970 CLS: END 
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amortizaçAo 

O programa Amortização (AMORT) gera o montante do pagamento mensal 
necessário para amortizar um empréstimo sobre qualquer número de meses a 
qualquer taxa de juros desejada, Na linha 140 o montante principal do emprés- 
timo é colocado e as Unhas 160-180 pedem a taxa de juros anual e o número de 
meses necessários para o empréstimo ser pago. O juro mensal é computado 
como a taxa anual dividida por 12 na linha 190, Como podemos ver, a linha 170 
divide a taxa de juros digitada (digamos 12, por exemplo) por 100, dando ,12 para 
cálculos. O montante do pagamento é então derivado da fórmula na linha 200 e 
as linhas 210- 270 arredondam o pagamento para o inteiro mais próximo do 
centavo. 

Nesta hora você é perguntado se quer ver o cronograma detalhado do paga- 
mento com o balanço do declínio do empréstimo. Be você só quer comparar as 
diferenças nos pagamentos entre várias taxas de juros e/ou períodos de paga- 
mento, pode não querer ver o relatório detalhado de pagamentos. Entretanto, 
se quiser ter uma idéia do montante de juros pagos a cada ano (para propósitos 
de taxa), poderá ver os pagamentos e balanços exatos, 

Além disso, você pode ver o cronograma de pagamentos e balanços na tela: a 
tela pára quando cada uma è preenchida (pressione RETURN para continuar 
na próxima tela). Ou, se tiver uma impressora, você poderá gerar uma listagem 
da mesma informação. 

Quando um cronograma for completado, vocé poderá então continuar com 
outro cronograma ou finalizar o programa digitando 0 para o montante princi- 
pal na linha 140. 


10 REM 


20 REM Hí * 

30 REM >K AMORTIZ RCftO * 

40 REM M # 

50 REM * DIREITOS AUTORAIS & 

60 REM H< * 

70 REM * NELSON ALVES >K 

80 REM >l< # 

90 REM * * 


100 REM 
1 1 O KEY GFF 
130 CLS 

140 INPUT -PRINCIPAL “íPRIN 
ISO IF PR IN <" O THEN 780 

160 INPUT "TAXA DE JUROS ANUAL ( 7. ) "iTJ 
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170 TJ = TJ / 100 

180 INPUT "NO - DE MESES " ;N 

Í9Ü IM = TJ / Í2 

200 P = PRIN>Km>K< 1 + ÍM) A N/ ( í ÍH-IM) *N) -i > 

210 P2 = R >K 1 00 
220 P3 « INT(P2 : )+.5 
230 IE P2 >= P3 THEN 260 
240 P2 = INTÍP2) 

250 GOTO 270 

260 P2 = INTÍP2) + 1 

270 PAMT = P2/100 

280 PRINT "Q PAGAMENTO MENSAL E DE ";PAMT 
290 INPUT "PLANILHA DETALHADA (S/N) 11 (SN* 

300 1F SN* = "N" THEN 170 

310 IF SN* = "S" THEN 330 

320 GOTO 290 

330 INPUT "IMPRESSORA (S/N) "ilSN* 

340 INPUT "CALCULAR O TOTAL (S/N) "íSN* 

350 IF SN* = "S" THEN 390 

360 IF SN* = "N" THEN 380 

370 GOTO 340 

380 INPUT "PGTO MENSAL DESEJADO " ? PAMT 
390 IF I SN* <> "S" THEN 430 

400 LPR I N T CH R * U 2 ) 

410 LPR I NT "PRINCIPAL: ";PRIN 

420 LPftINT "JUROS ANUAIS: " ; T J 

430 LPRINT "TOTAL PAGO: " ? PAMT 

440 LPRINT 

450 LPRINT "PRINCIPAL ;SPC (8) 5 " JUROS" ; SPC ( U ) 5 

460 LPRINT "P/ PRINCIPAL" ; SPC (4) ? "TOTAL PAGO" ; SPC (5) ! "MES" 

470 LPRINT 

4S0 CTRP = O 

490 FOR I = 1 TO N 

500 II = PR I N * IM 

510 II = ( INT ( í I 1+5E-03) *100) /100) 

520 IF I < N THEN 540 
530 PAMT - PRIN + II 
540 TPRIN = PAMT - II 

550 TPRIN = í I NT í í TPR I N+5E-03) * 1 00) / 1 00 ) 

560 PRIN = PRIN - TPRIN 

570 PRIN = ( INT < (PRIN+5E— 03) #1001/100 > 

5S0 IF PRIN ><= O THEN 630 
590 PRIN = PRIN + TPRIN 
600 PAMT = PRIN 
610 TPRIN = PAMT - II 
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620 PRIN = O 

630 PRINT "PRIN = " ? PR I N ; TAB ( 1 8) í "JUROS = " i I 1 

640 PRINT "P/ PRIN = " ? TPRIN; TAB ( 1 8) 5 "PGTO = " ; PAMT 

650 PRINT 

660 CTRP = CTRP + 1 

670 IF I SN* = "S" THEN 720 

680 IP CTRP < 7 THEN 710 

690 INPUT "DIGITE RETURN PARA CONTINUAR " ?X* 

700 CTRP = O 

710 IF I SN* O "S" THEN 750 

720 LPRINT PRIN; SPC (15 - LEN (STR* (PRI N ) ) ) i I U SPC ( 1 5-LEN 
(STR* (I 1 ) > ) 5 TPRIN? 

730 LPRINT SPC (15 - LEN < STR* < TPR IN) ) ) ? PAMT í 
SPC ( 1 5-LEN (STR* ( PAMT ) ) ) ? I 
740 NEXT I 

750 INPUT "CONTINUAR (S/N) "?SN* 

760 IF SN* O "S" THEN 780 
770 GOTO 130 
780 CLS : END 


PRINCIPAL* 10000 
JUROS ANUAIS: .2: 
TOTAL PAGO! 523, 
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Figura 7. Programa Amortização: exemplo 
de saída do programa. 


Programas Educacionais e Pessoais 


121 


INVESTIMENTOS 

O programa Investimentos (INVEST) permite que você analize várias poupan- 
ças e investimentos. Basicamente, dois tipos maiores de investimentos são 
analizados: um investimento parcial e um pagamento anual que adiciona a uma 
conta de poupança uma base regular. Existem duas espécies de anuidades: uma 
anuidade ordinária (simples) e uma anuidade devida. Em uma anuidade ordi- 
nária, os depósitos são feitos no final do período, o que significa que nenhum 
juro é recebido no último montante pago. Em uma anuidade devida, depósitos 
são feitos no início de cada período e o juro é recebido no último pagamento 
efetuado. A diferença entre as duas anuidades é essencialmente a diferença de 
tempo, 

O menu da tela nas linhas 150 - 340 descreve os comandos que podem ser 
utilizados: 

I. IM (um investimento parcial composto mensalmente) analiza quanto um 
investimento de 3 digamos Cz$ 500.000,00, pode crescer em um determinado 
número de meses. 

Z. IA (im investimento parcial composto anual mente ) faz a mesma coisa sobre 
um período de anos. 

3. AMO (uma anuidade ordinária) diz a você quanto teria se tivesse investido, 
digamos Cz$ 5.00,00, todo mês por um período de 36 meses, 

4. AO (anuidade ordinária) analiza o pagamento de uma anuidade feito, 
anualmente, por um certo numero de anos. 

5. MD (mensalidade devida) faz o mesmo que AMO, mas o pagamento é feito no 
início de cada período de juros, assim mais juros é ganho. 

6. AD (anuidade devida) é similar a AO, mas o pagamento é feito no inicio de 
cada período de juros, 

Cada um dos seis diferentes comandos solicitará uma quantia de cruzados para 
investimento ou pagamento (dependendo se for para um investimento ou anui- 
dade). Uma taxa de juros deve ser digitada. Por exemplo, uma taxa anual de 
juros de 12.75% deve ser digitada como 12,75, e 13% como 13, O valor após r 
período de tempo requerido é então exibido, Se você quer um relatório de ta 
lhado, pode té- Lo mês-a-mês ou ano -a -a no. 

Comandos específicos estão incluídos nas linhas 1,000 - 1,010, que são uma 
simples computação do investimento, baseado na fórmula financeira: valor 
futuro = principal vezes (1 (-a taxa de juro) elevado à potência do número de 
pagamentos. Na linha 1.050, o valor futuro é então arredondado para os centa- 
vos mais próximos. As fórmulas das anuidades estão nas linhas 1.760 - 1.840 e 
nas linhas 2.060 - 2,090. 
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Este programa, assim como outros programas neste livro, podem utilizar im 
pressora. Se você tiver uma, pode imprimir cronogramas de análise de poupan 
ças e anuidades. 
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REM 
REM * 

REM * 

REM * 

REM Hí 
REM * 

REM * 

REM * 

REM * 

REM 
KEY 
IPR* = 

CLS 
PRINT 

PRINT SPCÍ5) 

PRINT SPCC5) 

PRINT 5PC(S> 

PRINT SPC(S) 

PRINT SPC < 5 > 

PRINT 
PRINT 

PRINT " IM 

PRINT M IA 

PRINT ,f AMO 

PRINT 11 PO 

PRINT " MD 

PRINT " PD 

PRINT " PI 

PRINT " Dl 

PRINT " FIM 

PRINT 
PRINT 
PRINT 

REM ANUIDADES DRDINPRIAS NPO ADMITEM 
REM JUROS NO ULTIMO PAGAMENTO 
REM PORQUE ÜS PAGAMENTOS SAÜ APROPRIADOS 
REM NO FINAL DO PERÍODO 

r~ ■ l 1 if/ J/ d/ d/ d/ íj/- vl/ li/ vl/ d/ ■d# "vlf vir vl/ ví/ \fc/ vl/ '-Lr v£/ Vi/ Vi/ 1 vl/ \J/ vl/ vi/ d/ vl/ - \ 1/ \1/ vi# vi/ vl/ 

JT\ fT I { q^ nr-i rf 8 ^ rp. /yV # 1 % infS /|?v n-V /|V /fv /fv /fN /|V /|n r>‘. nP, i*v» n V r|*i /p 1 , rp. rJV rf 1 , ryV rv> />*,. /yv /|S jr|\ /|\ /p, 

INPUT "FPCP A SUP ÜPCAO " ; S* 

IF SS = ''FIM 1 ' THEN 2520 


INVESTIMENTO 

INVESTIMENTO 

INVESTIMENTO 

INVESTIMENTO 


COMPOSTO MENSAL' 1 
COMPOSTO ANUAL" 
MENSAL i ORDINÁRIO) 
ANUAL í ÜRD I N AR 10)'' 


MENSALIDADE DEVIDA 11 
ANUIDADE DEVIDA" 

ATIVAR A IMPRESSORA" 
DESATIVAR A IMPRESSORA” 
FINALIZA O PROGRAMA" 
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420 

IF 

S % 

=i 

" IM“ 

THEN 

600 

430 

IF 

S$ 

T= 

" IA" 

THEN 

960 

440 

IF 

S$ 

= 

11 AMO 1 

' THEK 

) 1340 

450 

IF 

S$ 

3E 

"AG" 

THEN 

1940 

460 

IF 

S$ 


"MD " 

THEN 

1340 

470 

IF 

S* 

= 

"AD 11 

THEN 

1940 

480 

IF 

S* 

= 

"AI " 

THEN 

520 

490 

IF 


= 

"Dl " 

THEN 

360 

500 

GOTO 

140 





510 REM ^>íí^>KH(Y)K>K>í<HcYHt>l<>l<>íí)|<ií<^^>iíHí>l<>|íS<H<>K!lí>íc>K^rt<!í<>t<síí>KHí 
520 IF IPR$ a "S" THEN 540 
530 IPRS = "S" 

540 GOTO 140 

550 H E M ííí )|í Hí )jí ?K JjííiíHí )jí Hí íJí ^ ^ Y Jjí ílí Hí V- Y ^ 

560 IF IPR$ “ 11 N" THEN 530 
570 IPR^ = "N JI 
530 GOTO 140 

590 REM íiíJtOtoècíioKííoí-cíloiokiíoloiíííoíOtOícHíKotoKHí^^^^HokHOiO^HoiíHoíoSí 
600 CLS 

610 PRINT "INVESTIMENTO COMPOSTO MENSAL ” 

620 INPUT "TOTAL DG INVESTIMENTO " ; TI 
630 INPUT "TAXA DE JURO ANUAL " ; JA 
640 IF JA }“ 1 THEN 670 
650 PRINT "DIGITE 12X COMO 12" 

660 GOTO 630 

670 MI = JA / 1200 

630 INPUT "NO - DE MESES " ; ME 

690 FV = TI Hí í 1 -f-MI > A M0 

700 FV = í INT < (FV + 5E-03) íKIOO) /100) 

710 PRINT "VALOR APOS " iME ; "MES <£S> í "?FV 
720 PRINT 

730 IF IPRS O "S" THEN 790 

740 LPRINT "INVESTIMENTO COMPOSTO MENSAL" 

750 LPRINT "TOTAL DO INVESTIMENTOS ";TI 
760 LPRINT "TAXA DE JURO ANUAL = ";JA 
770 LPRINT "NO- DE MESES : " ? ME 

780 LPRINT 

790 INPUT "IMPRIMIR DETALHES MENSAIS íS/N) " ? SNS 
800 IF SN* <> "S" THEN 920 

01 0 FOR I = 1 TO ME 
820 FV * TIYÍl+MI) 

830 FV = <INT í (FV+5E-03) * 1 ÜO > /IOO) 

840 IF 1 PR$ O "S" THEN 880 
850 LPRINT "MES " i I ? 

860 LPRINT SPC (10 - LEN <STR$ í I > ) ) ;FV 
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870 GOTO 900 

080 PRIP.iT "MES " ; I ; 

890 PRINT SPCUO - LEN ( STRÍ <!)>>; FV 
900 TI = FV 
910 NEXT I 
920 PRINT 

930 1NPUT "TECLE RETURN PORO CONTINUAR " ; X* 

940 GOTO 140 

900 REM ************************************ 

980 CLS 

970 INPUT "TOTAL DO I NVEST I MENTO ";TI 
980 INPUT "TAXA DE JURO ANUAL "íJA 
990 IF JA > 1 THEN 1020 

1000 PRINT "DIGITE 127. COMO 12" 

1010 GOTO 980 

1020 JA = JA /100 

1030 INPUT "NO. DE ANOS " ; AN 

1040 FV = TI*(1+JA) A AN 

1050 FV = < INT< (FV+5E-03) *100) /100) 

1060 PRINT "VALOR APOS ";AN5" AND < S) " í FV 
1070 PRINT "TOTAL DO INVESTIMENTO: " ?TI 

1080 PRINT "TAXA ANUAL DE JURO: ";JA 

1090 PRINT 

1100 IF I PR* <> "5" THEN 1170 

1110 LPRINT " I NVEST I MENTO COMPOSTO ANUAL" 

1120 LPRINT "TOTAL DO INVESTIMENTO: ";TI 

1130 LPRINT "TAXA DE JURO ANUAL: » ; JA 

1140 LPRINT "NO. DE ANOS: " ; AN 

1150 LPRINT "VALOR APOS “ 1 AN ; " ANOS";FV 
1160 LPRINT 

1170 INPUT "IMPRIMIR DETALHES ANUAIS ÍS/N) " í SN* 
1180 IF SN* O "S" THEN 1300 
1 1 90 FOR I = 1 TO AN 
1200 FV = TI * ( 1 +JA) 

1210 FV = ( INT < < FV+5E-03 ) *100) / 100> 

1220 IF I PRÍ <> "S" THEN 1260 

1230 LPRINT "ANO ";Ii 

1240 LPRINT SPCÍ10 - LEN < STR* ÍI ) ) ) i FV 

1250 GOTO 1280 

1260 PRINT "ANO "íí? 

1270 PRINT SPCilO - LEN (STR* ( I ) ) ) ; FV 
1280 TI = FV 
1290 NEXT I 
1300 PRINT 

1310 INPUT “TECLE RETURN PARA CONTINUAR " ; X* 
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1320 GOTO 140 

1330 REM ************************************ 

1340 CLS 

1350 IF S$ = "AMG" THEN 1380 
1360 PRINT "MENSALIDADE DEVIDA" 

1370 GOTO 1390 

1380 PRINT "INVESTIMENTO MENSAL (ORDINÁRIO)" 

1390 INPUT "TOTAL DO INVESTIMENTO MENSAL ";TIM 

1400 INPUT "TAXA DE JURO ANUAL "UA 

1410 IF JA >= 1 THEN 1440 

1420 PRINT "DIGITE 127. COMO 12" 

1430 GOTO 1400 
1440 MI = JA / 1200 

1450 INPUT "NO. DE MESES PAGOS “ ; ME 
1460 AMT = (TIM/MI ) * ( ( 1-f-MI ) A ME“1 ) 

1470 IF S* = "AMO" THEN 1490 
1400 AMT = AMT* < 1+M I ) 

1490 AMT = ( INTÍ ÍAMT+5E-03) *100) /100) 

1500 CLS 
1510 PRINT 

1520 IF S* = "AMO" THEN 1650 
1530 IF IPR* <> "S" THEN 1560 

1540 LPRINT "MENSALIDADE DEVIDA" 

1550 GOTO 1600 

1560 PRINT "MENSALIDADE DEVIDA" 

1570 GOTO 1670 

1580 IF IMPR* <> "S" THEN 1650 

1590 LPRINT "INVESTIMENTO MENSAL (ORDINÁRIO)" 

1600 LPRINT "TOTAL DO INVESTIMENTO MENSAL: ";TIM 

1610 LPRINT "TAXA DE JURO ANUAL: ";JA 

1620 LPRINT "TOTAL ANUAL: " ; AMT 

1630 LPRINT 

1640 GOTO 1710 

1650 IF IPR* = "S" THEN 1590 

1660 PRINT "INVESTIMENTO MENSAL (ORDINÁRIO)" 

1670 PRINT "TOTAL DO INVESTIMENTO MENSAL: " ;TIM 

1630 PRINT "TAXA DE JURO ANUAL: " ; JA 

1690 PRINT "TOTAL ANUAL: " ; AMT 

1700 PRINT 

1710 INPUT "IMPRIMIR DETALHES MENSAIS (S/N) " 5 SN* 

1720 IF SN* O "S" THEN 1900 

1730 AMT = O 

1740 FOR I = 1 TO ME 

1750 IF S* = "AMO" THEN 1770 

1760 AMT = AMT + TIM 
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1770 FV = AMT# ( 1 +MI ) 

1780 FX = FV 

1790 FV = <INT í (FV+5E-03) *100) /ÍOO) 

1800 IF 34 = "MD" THEN 1840 

1 BI 0 FV = FV+TIM 

1820 AMT = FX+TÍM 

1830 GOTO 1850 

1840 RMT = FX 

1850 IF IPR4 O "S" THEN 1880 

1860 LPRINT ” MES " 5 I > SPC < 1 0—LEN ( ST Rí < I ) ) ) ; FV 
1870 GOTO 1890 

1880 PRINT "MES " í I iSPC < 10-LEN (STR4 ( I ) >) ?FV 
1890 NEXT I 
1900 PRINT 

1910 INPUT "TECLE RETURN RARA CONTINUAR " iX4 
1920 GOTO 140 

1930 REM #################################### 
1940 CLS 

1950 IF B% = "AO" THEN 1980 
1960 PRINT "ANUIDADE DEVIDA" 

1970 GOTO 1990 

1980 PRINT "INVESTIMENTO ANUAL (ORDINÁRIO)" 

1990 INPUT "TOTAL DO INVESTIMENTO ANUAL ";TIM 

2000 INPUT "TAXA DE JURO ANUAL ";JA 

2010 IF JA > 1 THEN 2040 

2020 PRINT "DIGITE 127. COMO 12“ 

2030 GOTO 2000 
2040 JA = JA / 100 

2050 INPUT "NO. DE ANOS PAGOS ” ; AN 
2060 AMT = CTIM/JA) #< ( 1+JA> A AN-1 ) 

2070 IF Sí = "AO" THEN 2090 
2080 AMT = AMT# < 1 a- JA) 

2090 AMT = í I NT < ( AMT +5E-Q3 > #100) / 100 ) 

2100 CL.S 
2110 PRINT 

2120 IF S* = "AO" THEN 2240 
2130 IF 1PR$ <> "S" THEN 2220 

2140 LPRINT "ANUIDADE DEVIDA" 

2150 GOTO 2170 

2160 LPRINT "INVESTIMENTO ANUAL (ORDINÁRIO)" 
2170 LPRINT "TOTAL DO INVESTIMENTO ANUAL! " (TIM 
2180 LPRINT "TAXA DE JURO ANUAL! " ; JA 
2190 LPRINT "TOTAL DA ANUIDADE: 11 ; AMT 

2200 LPRINT 
2210 GOTO 2300 
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2220 PRINT "ANUIDADE DEVIDA" 

2230 GOTO 2260 

2240 IF IPR4 = "S" THEN 2160 

2250 PRINT "INVESTIMENTO ANUAL (ORDINÁRIO)" 

2260 PRINT "TOTAL DO INTESTI MENTO ANUAL: ";TJM 

2270 PRINT "TAXA DE JURO ANUAL: ";JA 

2280 PRINT "TOTAL DA ANUIDADE: " ; AMT 

2290 PRINT 

2300 INPUT "IMPRIMIR DETALHES ANUAIS (S/N) " ; SN4 

2310 IF 5N4 <> "S" THEN 2490 

2320 AMT = O 

2330 FOR I = 1 TO AN 

2340 IF 64 = "AO" THEN 2360 

2350 AMT = AMT + TIM 

2360 FV = AMT# < 1 +JR) 

2370 FX = FV 

23S0 FV = ( INT < (FV+5E-03) #100) /100) 

2390 IE S* = "AD" THEN 2430 
2400 FV = FV + TIM 
2410 AMT = FX + TIM 
2420 GOTO 2440 
2430 AMT = FX 

2440 IF IPR* O "S" THEN 2470 

2450 LPRINT "ANO " ; I í SPC < 1 O-LEN í STR4 ( I) ) ) ; F V 
2460 GOTO 2480 

2470 PRINT "ANO " 5 I i SPC ( 1 O-LEN <STR4 ( I ) ) > ; FV 
2480 NEXT I 
2490 PRINT 

2500 INPUT "TECLE RETURN PARA CONTINUAR ";X4 
2510 GOTO 140 
2520 CLS : END 
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INVESTI MENTO COMPOSTO MENSAL 
TOTAL DG INVESTIMENTO; iüOOG 


TAXA 

DE JURO 

ANUAL : 23 

NO. 

DE MESES! 

! 12 

MES 

1 

10191 -67 

MES 

2 

10387.01 

MES 

3 

10586,09 

MES 

4 

1 0788 - 99 

MES 

w 

10995-78 

MES 

6 

1 i 206 - 53 

MES 

7 

1 1421 -32 

MES 

s 

I 1 640 . 23 

MES 

9 

11063.33 

MES 

IO 

12090.71 

MES 

1 1 

12322.45 

MES 

12 

1255Q.63 


INVESTIMENTO mensal (ORDINÁRIO) 
TOTAL DO INVESTTMENTO MENSAL ' 
TAXA DE JURO ANUAL s 21 
TOTAL ANUAL: 594455.73 


MES 

1 

35000 

MES 

2 

70612.5 

MES 

3 

106848.22 

MES 

4 

143718.06 

MES 

5 

181233. 13 

MES 

6 

2 1 9404 . 7 1 

MES 

7 

25 824 4 . 29 

MES 

8 

297763.57 

MES 

9 

337974,43 

MES 

10 

378880.98 

MES 

1 1 

420519,54 

MES 

12 

462878 . 63 

MES 

13 

505979,01 

MES 

14 

54 9833 - 64 

MES 

1 5 

594455 . 73 


3SOOO 


INVESTIMENTO COMPOSTO ANUAL 
TOTAL DO I NVEST I MENTO : 25000 

TAXA DE JURO ANUAL: ,2 

NO, DE ANOS : 24 

VALOR APOS 24 ANOS 1997421-19 INVESTIMENTO ANUAL (ORDINÁRIO) 

TOTAL DO INVESTIMENTO ANUAL; 45000 


ANO 

1 

30000 

TAXA 

DE 

JURO ANUAL i -19 

ANO 

2 

36000 

TOTAL 

DA 

ANUIDADE: 1111898.79 

ANO 

3 

43200 




AND 

4 

51840 

ANO 

1 

45000 

AND 

5 

62 203 

ANO 

2 

98550 

AND 

6 

74649.6 

ANO 

3 

162274,5 

ANO 

7 

89579.52 

ANO 

4 

238106.66 

ANO 

0 

107495.42 

ANO 

5 

328346.92 

ANO 

9 

128994.5 

ANO 

6 

435732.83 

ANO 

IO 

154793.4 

ANO 

7 

563522 - 07 

ANO 

1 1 

185752.08 

ANO 

8 

715591 -27 

AND 

12 

222902 . 5 

ANO 

9 

896553.61 

ANO 

13 

267483 

ANO 

10 

i 1 11898.79 

ANO 

14 

320979.6 




ANO 

15 

385175-52 




AND 

16 

462210.62 




ANO 

17 

554652.74 




ANO 

18 

665583 , 29 




ANO 

19 

798699.95 




ANO 

20 

958439.94 




ANO 

21 

1150127.93 




ANO 

22 

1380153,52 




ANO 

23 

1656104,22 




ANO 

24 

1987421.06 





Figura 8* Programa Investimentos: exem- 
plos de saída do programa. 
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MENSALIDADE D£V I DA 

TOTAL DO INVESTIMENTO MENSAL: 50000 

TAXA DE JURO ANUAL: 21 

TOTAL ANUAL: 2021676.84 


ANUIDADE DEVIDA 
TpTAL DD INVESTIMENTO ANUAL í 
TAXA DE JURO ANUAL * -22 

TOTAL DA ANUIDADE: 18872549.3 


MES I 

50875 

ANO 1 

79300 

MES 2 

102640.31 

AND 2 

176046 

MES 3 

15531 1 .52 

AND 3 

294076 , 1 2 

MES 4 

200904 . 47 

AND 4 

438072,07 

MES 5 

263435-3 

ANO 5 

61374S.9 

MES 6 

31 S9 20. 42 

ANO 6 

828073.65 

MES 7 

375376.52 

ANO 7 

1099549.06 

MES e 

432820.61 

ANO 8 

1400550 . 83 

MES 9 

491269.97 

AND 9 

1 797732.01 

MÉS 10 

550742-2 

ANO 10 

2272533.05 

MES 1 1 

6112 5b .19 

ANU 1 1 

2851790.32 

MES 12 

672827.15 

ANO 1 2 

3558484 . 1 9 

MES 1 3 

735476-63 

ANO 13 

4420650.72 

MES 14 

799222.47 

ANO 1 4 

5472493,87 

MES 15 

064083 . 06 

ANO 1 5 

6755742-53 

MES 1 6 

930080.33 

ANO 16 

8321305.88 

MES 1 7 

99723 1 , 73 

ANO 1 7 

10231293. 17 

MES 18 

1065558,29 

AND 1 0 

12561477,67 

MES 19 

1 135080.56 

ANO 19 

15404302,76 

MES 20 

1205S19.47 

ANO 20 

10072549. 37 

MES 21 

1277796.31 



MES 22 

1351032.75 



MES 23 

1425550.82 



MES 24 

1501372.96 



MES 25 

1578521 ,9B 



MES 26 

1657021 . 12 



MES 27 

1736893-99 



MES 28 

1818164.63 



MES 29 

1900857.51 



MES 30 

1 904997 . 52 



MES 31 

2070609.98 



MES 32 

2157720.65 



MES 33 

2246355.76 



MES 34 

233654 1.99 



MES 35 

2428306 . 47 



MES 36 

2521676.94 




65000 

7 


Figura 9. Programa Investimentos: exemplos 
de saída do programa (cont). 
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maiuutençAo de dados 

O programa Manutenção de dados (TOTAIS) pode realizar uma variedade de 
manutenções de escores. Ele foi desenvolvido para manter o registro de muitos 
totais diferentes. As categorias utilizadas pelo programa são definidas no co- 
mando DATA nas linhas 250 - 330. Você não está limitado a este número de 
itens; até 50 classes com as quais os escores sào acumulados. Pode-se ter várias 
cópias deste programa com diferentes dados. Vários totais podem ser salvos em 
fita ou disco e mais tarde adicionados regularmente ou não. 

As cinco matrizes são usadas para acumulai- dados: 

1* O numero (deve estar entre 01 e 50) no grupo (n). 

2. O nome da categoria ou grupo (N$), 

3* O último escore ou total da categoria (SL), 

4, O novo escore a ser adicionado a SL (SN). 

5. O novo total ou acumulado de SL e SN (NWTTL). 

O comando DIM nas linhas 130- 170 cria estas matrizes e o loop nas linhas ISO - 
240 cria os valores numéricos com zero e os nomes com @ ” para todos. A linha 
340 coloca o contador em 0, Esta variável mantém o registro do número de itens 
colocados, de modo que a classificação e impressão seguinte saibam quantos 
itens estão disponíveis. Lembre-se de que até 50 são possíveis; se você tiver mais 
do que 50 itens, pode usar programas com diferentes comandos DATA para 
inserir dados em dois ou mais grupos. Nas linhas 360 - 480, você digita a informa- 
ção necessária. Você deve digitar um escore anterior para cada (mesmo que 
ambos sejam zero ). O programa perguntará pelo velho e o novo total para cada 
número de 1 para o CTR (o número total de comandos DATA numerados de 1 a 
50, ou com números tão grandes quanto você queira). 

A linha 500 pergunta pelo nome do seu relatório (não use virgulas, a inenos que 
você coloque o título entre aspas). A linha 510 pergunta se você quer imprimir. 
(Se não quiser, o relatório será mostrado na tela). 

Três ordens são impressas; sequência numérica por número (021 até 50), ordem 
descendente por escore total e ordem descendente por escore atual somente. 
Cada relatório é precedido por uma classificação do tipo bolha que organiza os 
dados na sequência própria pela troca e união de dados que estão fora de ordem 
na matriz. Cada relatório é gerado pela mesma subrotina GO SUB 940 que 
imprime um subtítulo diferente baseado no valor de T2$ (mostrado nas linhas 
520, 660 e 740). 

Se o relatório for mostrado na tela, o movimento da tela será interrompido para 
manter o registro de quantos totais foram impressos (C2 nas linhas 1 . 170 - 1 . Í90), 
Desta maneira, quando uma tela for preenchida, o programa esperará que vocé 
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pressione RETURN antes dele voltar a ativar a tela, Você pode repetir o relato- 
rio novamente e assim por diante até responder S para o comando de entrada da 
linha 760. 

Note que nas rotinas de classificação, a mesma subrotina, GOSUB 960, é usada 
para trocar elementos que estão fora de ordem. 


10 

REH 

* W H( * tf< >k & * Hí # Hí # # M & * >X >K 

20 

REM 

* 


* 

30 

REH 

>K 

MANUTENCAO DE DADOS 

* 

40 

REH 

* 


& 

50 

REH 

* 

DIREITOS AUTORAIS 

& 

60 

REH 

>K 


* 

70 

REH 

* 

NELSON ALVES 

* 

BO 

REM 

íK 


Hí 

90 

REH 

* 


* 


ÍOO REM ##***####*##*#*#**#**** 

110 KEY OFF 
130 DIM N<50) 

140 DIM N<ÍÍ50> 

150 DIM SL (50) 

160 DIM SNÍ50) 

170 DIM NTL (50 > 

180 FGR I = 1 TO 50 
190 N*(I> = "3" 

200 SL < I ) = O 
210 SIM(I> = 50 
220 N(I) = I 
230 NTL ( I ) =0 
240 NEXT I 

250 DATA "01 NELSON & LUCIANE ALVES" 

260 DATA "02 WILSON & DEBORAH FERREIRA" 
270 DATA "03 RICARDO & TERESA ANDRADE" 
280 DATA "04 ELIO & CLAUDINA FERREIRA" 
290 DATA "05 TQNY 8. MARGARETH ASSUMFCAÜ" 
300 DATA "06 AGOSTINHO & JANETE ALVES" 
310 DATA "07 FÁBIO 8 DÉBORA PINI" 

320 DATA "08 JOSE & CARMIM" 

330 DATA "FIM" 

340 CTR = 0 
350 CLS 

360 FOR I = 1 TO 50 
370 READ NOME* 
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380 IF NOME* = "FIM" THEN 420 
390 CTR = CTR 1 
400 N* ( I ) = NOME* 

410 NEXT I 

420 FOR I = 1 TO CTR 

430 PRINT "ENTRE O NO.i " ; I 

440 PRINT N* (I > 

450 INPUT "ULTIMO TOTAL: "íSLd> 

460 INPUT "NOVO ESCORE: " ; SN (1 ) 

470 NTLÜ) = SLCI) + SN(I) 

480 NEXT I 

490 REM lloíoit^íiotíijfíK^íRXOitijoUíKJÍt^WXOWAHOÍtíKitoiíílíilolí^^^oiíí: 
500 INPUT "TITULO DO RELATORIOs ";T* 

510 INPUT "IMPRIMIR (S/N) "(ISN* 

520 T2* = "SEDUENC I O NUMÉRICA" 

530 FLAG* = "N" 

540 FOR I = 1 TO CTR— 1 

550 IF N < I ) {= Nd + l) THEN 570 

560 GOSUB 790 

570 NEXT I 

580 IF FLAG* = "S" THEN 530 
590 GOSUB 960 
600 FLAG* = "N" 

610 FOR I = 1 TO CTR-1 

620 IF NTL(I) >= NTL ( I +1 ) THEN 640 

630 GOSUB 790 

640 NEXT I 

650 IF FLAG* = "S" THEN 600 
660 T2* = "NOVA SEQOENCIA" 

670 GOSUB 960 
680 FLAG* = "N" 

690 FOR I = 1 TO CTRL-1 

700 IF SN ( I ) >= SNd + 1) THEN 720 

710 GOSUB 790 

720 NEXT 1 

730 IF FLAG* = "S" THEN 680 
740 T2* - "ESCORE ATUAL" 

750 GOSUB 960 

760 INPUT "REPETIR (S/N) ";RSN* 

770 IF RSN* =* »S" THEN 520 

780 GOTO 1340 

790 NXTTL = NTL ( I ) 

800 NTL ( I ) = NTL d + 1 ) 

810 NTL(H-l) = NXTTL 
820 N2 = N(I) 
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830 NÍI) = N d + 1 ) 

840 Nd + 1> = NZ 

850 NX* = N*d> 

860 N*d) = N*(I + 1> 

870 N*d + 1) = NX* 

880 SXL = SL (I ) 

890 SL d ) = SLU + 1) 

900 SLU + 1) = SXL 
9 1 0 XSN = SN ( I ) 

920 SN (I ) = SNÍ 1+1 ) 

930 SNd + l) = XSN 
940 FLAG* = "S" 

950 RETURN 

960 INPUT "PRESSIONE RETURN PARA CONTINUAR " í X* 

970 C2 = O 
980 CLS 

990 IF ISN* <> "S" THEN 1030 

1000 LPRINT T* 

1010 LPRINT T2* 

1020 LPRINT 
1030 PRINT T* 

1040 PRINT T2* 

1050 PRINT 

1060 IF ISN* <> "S” THEN 1 160 

1070 LPRINT í 

1 080 LPRINT " jK**#*#**#####^***^####****##***###****#'' 
1090 LPRINT 
1100 LPRINT T* 

1110 LPRINT T2* 

1120 LPRINT 

1130 LPRINT SPC (40) í "ANTERIOR" í SPC (5) í "NOVO” 5 
1140 LPRINT SPC (5) í "ATUAL" 

1150 LPRINT 

1160 FOR I = 1 TO CTR 

1 170 C2 = C2 + 1 

1180 IF C2 < 5 THEN 1210 

1 190 C2 = 1 

1200 INPUT "PRESSIONE RETURN PARA CONTINUAR " 5 X* 

1210 PRINT lí SPC (2) íN*ÍI) 

1220 PRINT "TOTAL ANTERIOR: “ 5 SL (I > 

1230 PRINT "NOVO TOTAL: " í NTL í I ) 

1240 PRINT "TOTAL ATUAL: " íSN(I) 

1250 PRINT "MoK*####**#####**#*##***####**###***###*" 
1260 IF ISN* <> "S" THEN 1300 

1270 LPRINT lí" - " ; N* (I ) ;SPC (36 - LEN ( N* ( I > ) ) í SL ( I ) í 
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1280 LPRINT SPCaO-LENÍSTRSÍSLCI) ) ) ) ÍNTLÍI) í 
1290 LPRINT SPC<9 - LEN ( STR$ (NTL ( I ) > ) ) ; SN í I ) 
1300 NEXT 1 

1310 IP ISN$ <í "S” THEN 1330 
1320 LPRINT 
1330 RETURN 
1340 CLS: END 
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TESTE DO PROGRAMA 
SEQUE MC I A NUMÉRICA 

TESTE DO PROGRAMA 
SEQUE NC IA NUMÉRICA 


anterior 

1 “01 NELSON & LUCIANE ALVES i 

2 - 02 WILSON t DEBÜRAH FERREIRA 3 

3 - 03 RICARDO & TERESA ANDRADE 5 

4 - 04 EL IO & CL AUDI NA FERREIRA 

5 - 05 TÜMY & MARGARETH ASSUMPCAO 9 

b - 06 AGOSTINHO & JANETE ALVES 2 

7-07 FAB 10 £ DÉBORA PI NI 4 

S - 08 JOGE & CARMIM 

TESTE DO PROGRAMA 
NOVA SEQJJENCIA 


NOVO ATUAL 

3 2 

7 4 

1 1 6 

15 3 

10 1 

5 3 

9 5 

13 7 




TESTE DO PROGRAMA 
NOVA St QUE NC IA 


ANTERIOR NOVO ATUAL 


1 - 04 EL IO & ÜLAUDINA FERREIRA 

2 - 08 JOSE £ CARMIM 

3 - 03 RICARDO £ TERESA ANDRADE 

4 - 05 TGNY £ MARGA RE TH ASSUMPCAO 

5 - 07 FADIÜ & DÉBORA PlNl 

6 - 02 WILSON & DE B GR AH FERREIRA 

7 - 06 AGOSTINHO £ JANETE ALVES 
Q - 01 NELSON t LUCIANE ALVES 

TESTE DQ PROGRAMA 
ESCORE ATUAL 


7 

6 

5 

9 

ã 

3 

1 


15 
13 
1 I 

10 

9 

7 


5 
7 

6 

5 

4 

3 




TESTE DO PROGRAMA 
ESCORE ATUAL 





ANTERIOR 

NP VO 

ATUAL 

1 

- 04 

EL 10 £ CLAUD1NA FERREIRA 

7 

15 

S 

2 

- 03 

JOSE & CARMIM 

h 

13 

7 

3 

- 03 

RICARDO £ TERESA ANDRADE 

5 

1 1 

6 

4 

- 07 

FAB 10 £ DÉBORA PI MJ 

4 

9 

5 

5 

- 02 

WILSON £ 0EBORAH FERREIRA 

3 

7 

4 

£> 

- 06 

AGOSTINHO t JANETE ALVES 

2 

5 

3 

7 

- 01 

NELSON £ LUCIANE ALVES 


3 

2 

e 

- 05 

TONV £ MAR GARE TH AS5UMPCA0 

9 

10 

I 


Figura 10, Programa Manutenção de Da- 
dos: exemplo de saída do programa. 
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MELHORES PROGRAMAS 


MSX — Melhores Programas (incluindo BASIC-MSX avançado) apresenta uma coletânea 
dos 22 "melhores programas"' para aplicação imediata no computador MSX e compa- 
tível. 

Dividido em 3 áreas de interesse, este livro sugere uma abordagem prática e muitas 
vezes avançada do BASIC-MSX em Jogos, Resolução de Problemas Matemáticos, 
Programas Práticos, Pessoais e Educacionais. 
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